本文整理自网络,侵删。
{$J+}function IsWow64Process: Boolean;type TIsWow64Process = function(hProcess: THandle; var Wow64Process: Boolean): Boolean; stdcall;var DLL: THandle; pIsWow64Process: TIsWow64Process;const Called: Boolean = False; IsWow64: Boolean = False;begin if (Not Called) then // only check once begin DLL := LoadLibrary('kernel32.dll'); if (DLL <> 0) then begin pIsWow64Process := GetProcAddress(DLL, 'IsWow64Process'); if (Assigned(pIsWow64Process)) then begin pIsWow64Process(GetCurrentProcess, IsWow64); end; Called := True; // avoid unnecessary loadlibrary FreeLibrary(DLL); end; end; Result := IsWow64;end;{$J-}
相关阅读 >>
Delphi利用getprocessmemoryinfo获取进程占用内存大小
Delphi里的compile和build都能产生可执行文件,有什么区别啊?
更多相关阅读请进入《Delphi》频道 >>