Also diese:
Delphi-Quellcode:
function IsWOW64: Boolean;
type
TIsWow64Process =
function(
// Type of IsWow64Process API fn
Handle: THandle;
var Res: BOOL
): BOOL;
stdcall;
var
IsWow64Result: BOOL;
// result from IsWow64Process
IsWow64Process: TIsWow64Process;
// IsWow64Process fn reference
begin
// Try to load required function from kernel32
IsWow64Process := GetProcAddress(
GetModuleHandle('
kernel32'), '
IsWow64Process'
);
if Assigned(IsWow64Process)
then
begin
// Function is implemented: call it
if not IsWow64Process(GetCurrentProcess, IsWow64Result)
then
raise Exception.Create('
Bad process handle');
// Return result of function
Result := IsWow64Result;
end
else
// Function not implemented: can't be running on Wow64
Result := False;
end;
Genau das haben wir ja schon gesagt: Dynamisch einbinden.
Aber ich würde sie umbenennen: Is32BitProcess bei IsWow64Process bekomme ich immer einen Knoten im Hirn. Ich muss dann immer überlegen was es eigentlich heißt.