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 winapi: getparent、setparent、movewindow - 获取、指定父窗口和移动窗口

Delphi inc函数和dec函数的用法

Delphi 一个高效的正整数排序函数

Delphi getdesktopdir 获取桌面路径

Delphi adoquery添加用户及密码

Delphi线程中动态创建ado控件

Delphi stringgrid之属性大全

Delphi常用数据类型

Delphi 内存管理[5]

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

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