Windowsのビット数を取得する方法を教えて下さい。

解決

yamada 2012-10-04 18:51:46 No: 43128

以下のプログラムでバージョンは取得できたのですが、
ビット数(32bit、64bit)まで取得したいのです。
どうかご教授願います。

//Windows の種類                       内部バージョン
//Windows 2000                         5.0
//32ビット版 Windows XP 各エディション 5.1
//Windows Server 2003                  5.2
//Windows XP x64 Edition         5.2
//Windows Vista                        6.0
//Windows Server 2008                 6.0
//Windows 7                            6.1
//Windows Server 2008 R2         6.1

procedure TForm1.Button1Click(Sender: TObject);
var
  osInfo: OSVERSIONINFO;
  ver :string;
begin
   osInfo.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
   if GetVersionEx(osInfo) then begin
     with osinfo do begin
       Label1.Caption:='Major:'+InttoStr(dwMajorVersion)+
                       '/Minor:'+InttoStr(dwMinorVersion);
     end;

end;

DEKO 2012-10-05 02:11:55 No: 43129

GetNativeSystemInfo() API を使う方法があります。
http://msdn.microsoft.com/en-us/library/windows/desktop/ms724340%28v=vs.85%29.aspx
※ XP 以降。

[Windows のバージョンを本格的に判断する。(Delphi VCL Tips)]
http://ht-deko.minim.ne.jp/tech002.html#tech022

yamada 2012-10-05 23:03:08 No: 43130

ありがとうございました！
参考にします。