Windows7で、プロダクトIDを取得するには？ (ID：43197)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

> Windows7かVistaかXPかを調べる方法

簡易的には Win32MinorVersion と Win32MinorVersion を調べればいいです。

var
  Dmy: string;
begin
  case Win32MajorVersion of
    5:case Win32MinorVersion of
        0:Dmy := '2000';
        1:Dmy := 'XP';
        2:Dmy := 'XP (x64) / Server 2003 / Server 2003 R2';
      end;
    6:case Win32MinorVersion of
        0:Dmy := 'Vista / Server 2008';
        1:Dmy := '7 / Server 2008 R2';
        2:Dmy := '8';
      end;
  else
    Dmy := 'Unknown';
  end;
  ShowMessage(Dmy);
end;

"XP 以降" のようにざっくり調べればいいのなら、CheckWin32Version() を使います。

if CheckWin32Version(5, 1) then
    ShowMessage('XP またはそれ以降')
  else
    ShowMessage('XP 以前');

XE2 以降なら OSX も含めて TOSVersion レコードで調べられます。

var
  Dmy: string;
begin
  case TOSVersion.Platform of
    pfWindows:
      begin
        case TOSVersion.Major of
          5:case Win32MinorVersion of
              0:Dmy := '2000';
              1:Dmy := 'XP';
              2:Dmy := 'XP (x64) / Server 2003 / Server 2003 R2';
            end;
          6:case TOSVersion.Minor of
              0:Dmy := 'Vista / Server 2008';
              1:Dmy := '7 / Server 2008 R2';
              2:Dmy := '8';
            end;
        else
          Dmy := 'Unknown';
        end;
      end;
    pfMacOS:
      begin
        Dmy := 'OSX';
      end;
  end;
  case TOSVersion.Architecture of
    arIntelX86:
      Dmy := Dmy + '(32bit)';
    arIntelX64:
      Dmy := Dmy + '(64bit)';
  end;
  ShowMessage(Dmy);
end;

[Operating System Version (Microsoft)]
http://msdn.microsoft.com/en-us/library/windows/desktop/ms724832%28v=vs.85%29.aspx

[System.SysUtils.TOSVersion]
http://docwiki.embarcadero.com/Libraries/ja/System.SysUtils.TOSVersion

←解決時は質問者本人がここをチェックしてください。

戻る