掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
モニターの解像度を取得したい (ID:7491)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
GetDeviceCapsで可能ですよ。GetDeviceCapsのヘルプをみると載ってます。 こんな感じ？ procedure TForm1.Button1Click(Sender: TObject); var X:integer; Y:integer; Xmm:integer; Ymm:integer; DC : HDC; begin DC := GetDC(0); X := GetDeviceCaps(DC, HORZRES); Y := GetDeviceCaps(DC, VERTRES); Xmm := GetDeviceCaps(DC, HORZSIZE); Ymm := GetDeviceCaps(DC, VERTSIZE); Releasedc(0,DC); ShowMessage(IntToStr(X) +':'+ IntToStr(Y) + ' ' +IntToStr(Xmm)+':'+IntToStr(Ymm) ); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.