Delphi编程之显示桌面分辨率

本文整理自网络，侵删。

 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Label1.Caption:='桌面分辨率是：'+IntToStr(Screen.Width)+'*'+IntToStr(Screen.Height)+'像素';
end;

end.
 

相关阅读 >>

Delphi隐藏指定程序的托盘图标

Delphi winapi: extracticon - 获取 exe、dll 或 ico 文件中的图标

Delphi的对象注销方法destroy和free的区别

Delphi图表控件tchart使用faq

Delphi sha1加密函数

Delphi setprivilege 提权代码

Delphi winapi: getwindowtext - 获取窗口标题

Delphi tstringlist的用法

Delphi mysql里Delphi事件类型转unix时间戳

Delphi tstringdynarray 使用,分割字符串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi编程之显示桌面分辨率