Delphi判断系统是否64位

最新推荐文章于 2023-04-19 20:21:14 发布

原创最新推荐文章于 2023-04-19 20:21:14 发布 · 1k 阅读

CC 4.0 BY-SA版权

该代码片段提供了一个Delphi函数IsWin64，用于检测运行的Windows系统是否为64位。通过调用'KERNEL32.DLL'库中的'IsWow64Process'和'GetNativeSystemInfo'函数，检查处理器架构以确定系统位数。

近来客户64位系统越来越多，配置的时候老出问题，搜了个这个给客户判断一下：

function IsWin64: Boolean;

var

Kernel32Handle: THandle;

IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL;

stdcall;

GetNativeSystemInfo :

procedure(var lpSystemInfo: TSystemInfo); stdcall; isWoW64 :BOOL;SystemInfo : TSystemInfo;

const

PROCESSOR_ARCHITECTURE_AMD64 = 9;

PROCESSOR_ARCHITECTURE_IA64 = 6;

begin

Kernel32Handle := GetModuleHandle('KERNEL32.DLL');

if Kernel32Handle = 0 then

Kernel32Handle := LoadLibrary('KERNEL32.DLL');

if Kernel32Handle <> 0 then

begin

IsWow64Process := GetProcAddress(Kernel32Handle, 'IsWow64Process');

GetNativeSystemInfo := GetProcAddress(Kernel32Handle, 'GetNativeSystemInfo');

if Assigned(IsWow64Process) then

begin

IsWow64Process(GetCurrentProcess, isWoW64);

Result := isWoW64 and Assigned(GetNativeSystemInfo);

if Result then

begin

GetNativeSystemInfo(SystemInfo);

Result := (SystemInfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) or (SystemInfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64);

end;

end

else

Result := False;

end

else

Result := False;

end;