[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;

我要留言

留言

關於 林壽山

林壽山 軟體公司專案經理,第三方支付設計,金流設計,行動支付設計,支付寶,微信,街口支付,信用卡機,擅長PHP網頁設計(CodeIgniter、Laravel)框架、Delphi程式設計、資料庫設計、C# WinForm/WebForm程式設計
本篇發表於 Delphi 並標籤為 , , 。將永久鏈結加入書籤。

發表迴響

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

這個網站採用 Akismet 服務減少垃圾留言。進一步瞭解 Akismet 如何處理網站訪客的留言資料