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.

推荐分享