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中用ado连接加密access数据库

Delphi假死线程堵塞解决办法

在 Delphi 中使用微软全文翻译的小例子

Delphi xe tparallel.for循环

Delphi 对话框单元

Delphi winsocks检测某个tcp端口师傅正在被使用

Delphi远程线程注入获取qq密码

Delphixe7关于android 检测屏幕是否处于关闭状态

Delphi json字符串转义

Delphi 程序动态改变皮肤

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

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