Is64BitOS

Проверяет является ли ОС x64 битной.

Is64BitOS()

Возвращаемое значение

Пример

; https://www.purebasic.fr/english/viewtopic.php?p=581152#p581152
Procedure.i Is64BitOS()
    Protected HDLL, IsWow64Process_, Is64BitOS
         If SizeOf(Integer) = 8
        Is64BitOS = 1 ; this is a 64 bit exe
    Else
        HDll = OpenLibrary(#PB_Any, "kernel32.dll")
        If HDll
            IsWow64Process_ = GetFunction(HDll, "IsWow64Process")
            If IsWow64Process_
                CallFunctionFast(IsWow64Process_, GetCurrentProcess_(), @Is64BitOS)
            EndIf
            CloseLibrary(HDll)
        EndIf
    EndIf
         ProcedureReturn Is64BitOS
EndProcedure

Debug Is64BitOS()