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 inttostransi

Delphi winapi: writeprivateprofilestring、getprivateprofilestring - 简单读写 ini 文件

如何为Delphi程序添加事件和事件处理器

Delphi 的webbrowser如何全选并复制浏览器上的文字

Delphi读写utf-8、unicode格式文本文件

Delphi屏蔽alt+tab键代码

Delphi memo1自动循环上下滚屏

Delphi winapi: getparent - 获取指定窗口的父窗口句柄

Delphi 3句话绕过xxx拦截删除桌面快捷方式

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

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