【delphi】简单判断windows是否64位

海纳老吴

于 2021-06-23 17:01:17 发布

阅读量661

点赞数

分类专栏： Delphi 文章标签： delphi 64 windows win X64 X32

本文链接：https://blog.csdn.net/sensor_WU/article/details/118156967

版权

Delphi 专栏收录该内容

161 篇文章 85 订阅

订阅专栏

这段Delphi代码用于获取当前运行的Windows系统的版本信息，特别是判断系统是32位还是64位。通过调用GetNativeSystemInfo函数和检查PROCESSOR_ARCHITECTURE_AMD64和PROCESSOR_ARCHITECTURE_IA64常量来确定系统架构，并返回相应的字符串结果。

摘要由CSDN通过智能技术生成

简单代码如下：

uses
   System.SysUtils,
   Winapi.Windows;

//返回当前操作系统的版本信息
function isX64 : string;
var
  si :   SYSTEM_INFO;
begin
  GetNativeSystemInfo(&si);               // = 9 表示的是 AMD64
  if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64 {9}) or
     (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64) then
     Result := 'Windows ' + Win32MajorVersion.ToString + '(64) '
  else
     Result := 'Windows ' + Win32MajorVersion.ToString + '(32)';
end;

在Windows10 上执行返回结果：

Windows10（64）