Delphi判断系统是否64位_判断系统是否64位 delphi-优快云博客

本文链接：https://blog.youkuaiyun.com/u012354684/article/details/12379769

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

近来客户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;