名前 題名 ▼ Mr.XRAYさん > 某掲示板で質問で出ていたのでやってみました． > 質問者と同じ Delphi 2007 > EXE 作成は Windows 7 U64(SP1) + Delphi 2007-R2 > コードは以下．アプリケーションマニュフェストを使わないと正しく > 取得できません． > > Windows のバージョンの値の関係は以下を参照してくださいませ > https://msdn.microsoft.com/en-us/library/windows/desktop/ms724834%28v=vs.85%29.aspx?f=255&MSPPError=-2147217396 > > 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 にしないと一発キャプチャできません． GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link