[PR]
2025年04月29日
×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
アプリを起動できるWindowsのバージョンを限定する
2013年11月06日
SysUtilsのCheckWin32Versionを使えば簡単にWindowsのバージョンが要望を満たしているのか調べることが出来ます。
procedure TForm1.FormCreate(Sender: TObject);
begin
//OSバージョンチェック、Windows7以降なら起動できる
if not CheckWin32Version( 6, 1 ) then begin
MessageDlg('残念ながらこのWindowsのバージョンでは動作を認められていません。'#13#10'アプリケーションを終了します。', mtError, [mbOk], 0);
Application.Terminate; Exit;
end;
end;
CheckWin32Versionの引数はMajorとMinorの数値。
Windows2000は5.0
WindowsXPは5.1
WindowsVistaは6.0
Windows7は6.1
Windows8は6.2
Windows8.1は6.3
Windowsのバージョンが引数に指定したものと同等かそれより新しければTrueが帰ります。
[0回]
PR
Comment