画面の解像度を取得する

画像の解像度を取得する

■使用するコンポーネント

Button

■使用するAPI関数

GetDesktopWindow（デスクトップのハンドルを取得する）
GetDC（指定されたウインドウのデバイスコンテキストを取得する）
GetDeviceCaps（デバイスの情報を取得する）

■ソースは下記のようになります。

■画像の解像度を取得する処理

procedure


TForm1.Button1Click(Sender: TObject);

Var

　DskhWnd,

　nhDc,

　nWidth,

　nHeight ,

　Bit : integer;

begin



　//デスクトップのハンドルを取得

　DskhWnd := GetDesktopWindow;

　//デスクトップのデバイスコンテキストハンドルを取得

　nhDc := GetDC(DskhWnd);

　//画面の横幅を取得

　nWidth := GetDeviceCaps(nhDc, HORZRES);

　//画面の縦幅を取得

　nHeight := GetDeviceCaps(nhDc, VERTRES);

　//ピクセル当たりのビット数を取得

　Bit
:= GetDeviceCaps(nhDc, BITSPIXEL);

　ShowMessage('画面の領域' + IntTostr(nWidth) + 'X' + IntTostr(nHeight)
+ #13#10 +'画面の色' +IntToStr(Bit) + 'ビット');

end;

Win32APIのページへ

ホーム PV ランキング