フォーラム


ゲスト  

ようこそ ゲスト さん。このフォーラムに投稿するには 登録が必要です。

ページ: [1]
トピック: Windows のバージョンを判断して処理を分岐させたい
DEKO
管理者
投稿数: 2635
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
管理者
投稿数: 2635
Re: Windows のバージョンを判断して処理を分岐させたい
on: 2015/11/11 14:36 Wed

引用 Mr.XRAY on 2015/11/11 10:17 Wed
Windows 10 は,Windows の最終バージョンである,と言う記事がネット上にあります.
もし,そうだとしたら,この先 Windows のバージョン取得のコードは修正する必要がないということになります.

 
そうなると次は SP 等の差異を調べるハメになるかもしれませんね (^^;A

Mr.XRAY
メンバー
投稿数: 192
Re: Windows のバージョンを判断して処理を分岐させたい
on: 2015/11/11 18:27 Wed

そうなると次は SP 等の差異を調べるハメになるかもしれませんね (^^;A

勘弁してくださいませ (^^;
でもあるかもしれませんね.

DEKO
管理者
投稿数: 2635
Re: Windows のバージョンを判断して処理を分岐させたい
on: 2015/11/14 08:03 Sat

言ってるそばから…(^^;A

http://pc.watch.impress.co.jp/docs/news/20151113_730510.html
http://news.mynavi.jp/special/2015/windows10update/

ページ: [1]
WP Forum Server by ForumPress | LucidCrew
バージョン: 1.7.5 ; ページロード: 0.028 sec.