モニターの解像度を取得したい (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;