| [9379] Windows10バージョンチェック | 返信 削除 |
| 2015/11/8 (日) 22:41:51 Mr.XRAY |
|
某掲示板で質問で出ていたのでやってみました． 質問者と同じ Delphi 2007 EXE 作成は Windows 7 U64(SP1) + Delphi 2007-R2 コードは以下．アプリケーションマニュフェストを使わないと正しく 取得できません． Windows のバージョンの値の関係は以下を参照してくださいませ procedure TForm1.Button1Click(Sender: TObject); begin if CheckWin32Version(10, 0) then begin MessageBox(Handle, 'Window 10', 'OS Version', MB_ICONINFORMATION); end else begin MessageBox(Handle, 'Other Version', 'OS Version', MB_ICONINFORMATION); end; end; インストールしてから初めて起動した Windows 10 ですが， やたら動作がもたつきます．何なんだ !? ↓ 合成画像ではありません．一発キャプチャの画像でございやす． MessageBox の第一引数を Handle にしないと一発キャプチャできません．  |