» Delphi » Windows システム » Windows のバージョンを判断して処理を分岐させたいDelphi Forum | Borland / Inprise / CodeGear / Embarcadero Delphi や C++Builder に関する情報交換の場です。ハンドル名で投稿できます。

ゲスト
ようこそゲストさん。このフォーラムに投稿するには登録が必要です。ユーザ名: パスワード: ログイン情報を保存

Forum » Delphi » Windows システム » Windows のバージョンを判断して処理を分岐させたい

ページ: [1]

	トピック: Windows のバージョンを判断して処理を分岐させたい

DEKO

管理者
投稿数: 2690

Windows のバージョンを判断して処理を分岐させたい
on: 2013/04/14 17:19 Sun

SysUtils.CheckWin32Version() を使うのが簡単です。Delphi 6 以降で利用可能です。

if CheckWin32Version(5, 1) then
  begin
    // XP 以降の処理
    ...
  end
else
  begin
    // XP 未満の処理
    ...
  end;

　
Windows のバージョンは以下のようになっています。

5.0: Windows 2000
5.1: Windows XP (32bit)
5.2: Windows XP (64bit)、Windows Server 2003、Windows Home Server
6.0: Windows Vista、Windows Server 2008
6.1: Windows 7、Windows Server 2008 R2、Windows Home Server 2011
6.2: Windows 8、Windows Server 2012

※ Delphi 6 では戻りの真偽値が逆になっているので注意が必要です。

See Also:
[System.SysUtils.CheckWin32Version]
http://docwiki.embarcadero.com/Libraries/ja/System.SysUtils.CheckWin32Version

Mr.XRAY

メンバー
投稿数: 192

Re: Windows のバージョンを判断して処理を分岐させたい
on: 2015/11/11 10:17 Wed

Windows 8.1 以降では，関数によってはバージョンの取得が「偽装」されるようです．
ここに簡単に書こうと思いましたが，私のサイトの他の記事との関連もあるので，以下に記事を掲載しました．
参考になれば．

ネット上で見かける，関数による違いの比較テストでありませんのでご了承ください．
Windows 10 は，Windows の最終バージョンである，と言う記事がネット上にあります．
もし，そうだとしたら，この先 Windows のバージョン取得のコードは修正する必要がないということになります．
さて，とうなるでしょう ?

[Windows のバージョンの取得]
http://mrxray.on.coocan.jp/Delphi/Others/WindowsVersion.htm

DEKO

管理者
投稿数: 2690

Re: Windows のバージョンを判断して処理を分岐させたい
on: 2015/11/11 14:36 Wed