DelphiコミュのWindowsのバージョンを取得する関数

フリーソフトウェアの開発でWindowsのできる限り正確な情報（Service Packや～～Editionなどまで）を得る関数が必要になりました。
最新のMSDNライブラリ(英)を参考に自分なりに作ってみました。
コードが正しければVistaからNT3.51/95までもをサポートしているはずです。
ところが私にはWidnows XPの環境しかなく、関数がすべての場合に正常に動くテストができません。

身勝手なお願いではありますが、
私のソースコードの批評や
みなさんの環境での実行結果を知ることができたらうれしいです。
よろしくお願いします

私の実行結果はWindows XP Professional Service Pack 2 (Build 2600)です。

MSDN(英)参考ページ
http://msdn.microsoft.com/library/en-us/sysinfo/base/getting_the_system_version.asp

ソースコードのダウンロード(簡易実行サンプル付)
http://uechoco.s14.xrea.com/download/archive/GWVSample.zip

関数本体のユニットファイルのHTML閲覧版
http://uechoco.s14.xrea.com/download/ueOSInfo.html

コメント(1)

最初
全て
最新の40件

[1] mixiユーザー 03月03日 16:42

WindowsXP SP2(Upgrade)
結果
Windows XP Professional Service Pack 2 (Build 2600)

Windows 2000 Server SP4
結果
Windows 2000 Server Service Pack 4 (Build 2195)

でした。
好みの問題ですが・・・

type
TGetNativeProcessInfo = procedure(lpSystemInfo: TSystemInfo) of Object;

var
ProcGNSI:TGetNativeProcessInfo;

とする方が私は好きです(^^;

ログインすると、みんなのコメントがもっと見れるよ