läuft Programm unter 32-Bit oder 64-Bit ab ?

[Uwe Raabe]

Ich habe jetzt gerade kein XE zur Hand, daher passt mein Code für Tokyo. Schau doch mal in der Windows.pas nach der Deklaration von IsWow64Process. Hier sieht das so aus:

Delphi-Quellcode:

function IsWow64Process(hProcess: THandle; Wow64Process: PBOOL): BOOL; overload; stdcall;
function IsWow64Process(hProcess: THandle; var Wow64Process: BOOL): BOOL; overload; stdcall;

Zeig doch mal die Deklaration bei dir.

Falls das zweite Overload noch nicht da ist, geht es eventuell auch so:

Delphi-Quellcode:

function IsWOW64: BOOL;
begin
  IsWow64Process(GetCurrentProcess, @Result);
end;