delphi 中判断windows系统是否是64位系统


本文整理自网络,侵删。

 function IsWin64: Boolean;
var
  Kernel32Handle: THandle;
  IsWow64Process: function(Handle:THandle; var Res:BOOL):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 函数从Windows XP 开始才有,
    //而 IsWow64Process 函数从 Windows XP with SP2 以及 Windows Server 2003 with SP1 开始才有。
    //所以使用该函数的时候最好用GetProcAddress 。
    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;

http://blog.csdn.net/risesoft2012/article/details/51260830

相关阅读 >>

Delphi webbrowser 去除滚动条和边框

Delphi sqlite 自动编号的实现

Delphi自有的md5函��

Delphi xe10 传感器操作

Delphi unigui确认对话框

Delphi winapi: settimer、killtimer - 创建与移除高性能定时器

Delphi 线程中修改主窗体的控件内容

Delphi 如何将access的ole对象字段存储的bmp图象显示出来

如何把 Delphi 自带的内存泄露写到日志

Delphi 不管什么日期格式转换都不会错了

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...