OS Version ermitteln

[Bummi]

Du greifst vorher mehrfach auf

si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64 zu.


EDIT

zumindest in der Letzten Version war si gar nicht mehr initialisiert bis zum GetNativeSystemInfo

[toms]

Funktion aus dem DF:

Delphi-Quellcode:

function GetNativeSystemInfo(var SystemInfo: TSystemInfo): Boolean;
type
  TGetNativeSystemInfo = procedure (var SystemInfo: TSystemInfo) stdcall;
var
  LibraryHandle: HMODULE;
  _GetNativeSystemInfo: TGetNativeSystemInfo;
begin
  Result := False;
  LibraryHandle := GetModuleHandle(kernel32);

  if LibraryHandle <> 0 then
  begin
    _GetNativeSystemInfo := GetProcAddress(LibraryHandle,'GetNativeSystemInfo');
    if Assigned(_GetNativeSystemInfo) then
    begin
      _GetNativeSystemInfo(SystemInfo);
      Result := True;
    end
    else
      GetSystemInfo(SystemInfo);
  end
  else
    GetSystemInfo(SystemInfo);
end;

function IsWindows64: Boolean;
var
  ASystemInfo: TSystemInfo;
const
  PROCESSOR_ARCHITECTURE_INTEL = 0;
  PROCESSOR_ARCHITECTURE_IA64 = 6;
  PROCESSOR_ARCHITECTURE_AMD64 = 9;
begin
  GetNativeSystemInfo(ASystemInfo);
  Result := ASystemInfo.wProcessorArchitecture in [PROCESSOR_ARCHITECTURE_IA64,PROCESSOR_ARCHITECTURE_AMD64];
end;

[Luckie]

Zitat von Bummi:

zumindest in der Letzten Version war si gar nicht mehr initialisiert bis zum GetNativeSystemInfo

Das ist jetzt behoben und steht am Anfang.

@toms: Das mit dem 32/64-Bit scheint jetzt gelöst zu sein. Ich habe nur noch das Vista/Srever 2008 Problem.

[Luckie]

So, hier ist die aktuelle Version.

[mirage228]

Der Vollständigkeit halber hier nochmal:
Windows 7 Professional 32-bit: Passt (Meldung als: Windows 7 Professional Build: 7600 32-bit)
Windows XP Professional SP3 32-bit (VM, "Windows XP-Mode"): Passt (Meldung als: Windows XP Professional Service Pack 3 Build: 2600)

[Luckie]

Sehr schön. Danke fürs Testen. Hätte jemand noch den Server 2008 zum Testen zur Verfügung? Weil damit habe ich im Kompatibilitätsmodus ja dieses Vista Problem. Eventuell ist es ja nur ein Problem mit dem Kompatibilitätsmodus und es funktioniert in Wirklichkeit.

[user0815]

Zitat:

Hätte jemand noch den Server 2008 zum Testen zur Verfügung?

Lad ihn doch runter: http://technet.microsoft.com/de-de/e.../cc137123.aspx

[Luckie]

Würde ich machen, aber ich habe zur Zeit nur ein kleines Netbook zur Verfügung, welches ich mir mit meinem Vater teile. Und eine VM würde es wohl in die Knie zwingen.