Windowsversion

[hbr]

hallo,
kann mir vieleicht jemand sagen mit welchem Befehl man bei Lazarus die Windows Version bzw 32 oder 64Bit Version abfragen kann?
gruß
hbr

[jus]

Vermutlich gibt es paar Befehle, mit dem man 32bit oder 64bit Windows feststellen kann. Ich verwende den Befehl "GetNativeSystemInfo". Der ist in "kernel32" dll drin.

Lg,
jus

[hbr]

Hallo Jus,
hättest Du da mal ein Beispiel?

Gruß

[gocher]

Code: Alles auswählen

program cpu32o64;
uses Windows, dynlibs;    
 
procedure GetSysInfo(out SystemInfo: TSystemInfo);
type TGetNativeSystemInfo = procedure(var SystemInfo: TSystemInfo) stdcall;
var
  LibraryHandle: TLibHandle;
  GetNativeSystemInfo: TGetNativeSystemInfo;
begin
  LibraryHandle := GetModuleHandle(kernel32);
  if LibraryHandle <> 0 then
    GetNativeSystemInfo := TGetNativeSystemInfo(GetProcAddress(LibraryHandle, 'GetNativeSystemInfo'));
  if Assigned(GetNativeSystemInfo) then
    GetNativeSystemInfo(SystemInfo)
  else
    GetSystemInfo(SystemInfo);
end;
 
function IsCpu64: Boolean;
var ASystemInfo: TSystemInfo;
const
  PROCESSOR_ARCHITECTURE_INTEL = 0; //i386
  PROCESSOR_ARCHITECTURE_IA64 = 6; //Intel Itanium-based
  PROCESSOR_ARCHITECTURE_AMD64 = 9; //x86_64
  PROCESSOR_ARCHITECTURE_UNKNOWN = $ffff;       
begin
  GetSysInfo(ASystemInfo);
  Result := ASystemInfo.wProcessorArchitecture in [PROCESSOR_ARCHITECTURE_IA64,PROCESSOR_ARCHITECTURE_AMD64];
end;
 
begin
  if isCpu64 then 
    WriteLn('cpu64')
  else
    WriteLn('cpu32');
end.

[hbr]

Hallo Gocher,
vielen Dank!
Das ist genau das, was gesucht habe.

Gruß
hbr