delphi 判断操作系统是否是64位的函数

本文整理自网络，侵删。

 

function Tmain.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;

――――――――――――――――

原文链接：https://blog.csdn.net/cc001100/article/details/81014785
 

相关阅读 >>

Delphi 文件路径相关的字符串操作

Delphi 自带大小写转换

进程隐藏的Delphi代码

Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)

Delphi 技巧 以相同类名派生一个子类

Delphi 生成可以控制最大32位随机英文数字字符串

Delphi调节音量及静音

Delphi 无窗体无界面exe怎么做？

Delphi 计算imei的校验位

Delphi ansi与unicode编码互转

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 判断操作系统是否是64位的函数