[Delphi XE3] 取得螢幕解析度

uses Winapi.Windows;

procedure TMainForm.Button1Click(Sender: TObject);
var
  ScreenHorizontal :integer;
  ScreenVertical:integer;
begin
  ScreenPixelX:= GetDeviceCaps(GetDC(Application.Handle),HORZRES); // Horizontal width in pixels
  ScreenPixelY:= GetDeviceCaps(GetDC(Application.Handle),VERTRES); // Vertical height in pixels
  // 取得螢幕解析度
  ShowMessage(IntToStr(ScreenHorizontal)+' X '+ IntToStr(ScreenVertical));
end;

我要留言

留言

發表迴響

你的電子郵件位址並不會被公開。