Seite 1 von 1

is win os x64 ??

Verfasst: 14.05.2008 12:24
von jpd
Hi,

mit diese kleine procedure is es möglich zu ermittlen ob das
Betriebssystem ein 64 Bit System ist.

Ciao
jpd

Code: Alles auswählen

#PROCESSOR_ARCHITECTURE_AMD64 = 9
Procedure x64()
  lpsystemInfo.SYSTEM_INFO
  ;GetSystemInfo_(@lpsystemInfo)
  openlib.l= OpenLibrary(#PB_Any, "kernel32.dll")
  *GetNativeSystemInfo = GetFunction(openlib, "GetNativeSystemInfo")
  CallFunctionFast(*GetNativeSystemInfo, @lpsystemInfo)
  CloseLibrary(openlib)
  If lpsystemInfo.SYSTEM_INFO\wProcessorArchitecture  = #PROCESSOR_ARCHITECTURE_AMD64
 
    ProcedureReturn 1
  Else
    ProcedureReturn 0
  EndIf
   
EndProcedure 
If x64()
MessageRequester("Info","is x64 OS")
Else
MessageRequester("Info","isn't x64 OS")
EndIf

Verfasst: 14.05.2008 14:21
von AND51
Scheint zu funktionieren, zumindest bei mir.