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

简单代码如下：

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）