说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用DEPHI3.0实现动画ABOUT窗口-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
用DEPHI3.0实现动画ABOUT窗口-Delphi资料

Classes

Graphics

Controls

Forms

Dialogs

StdCtrls

ComCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Animate1: TAnimate;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);

var x

y:integer;

sysinfo:Tsysteminfo;

meminfo:Tmemorystatus;

c2

c3

c4

c5:integer;

begin

getsysteminfo(sysinfo);

label16.caption:=inttostr(sysinfo.dwProcessorType);

x:=getsystemmetrics(0);

y:=getsystemmetrics(1);

label17.caption:=inttostr(x)+'*'+inttostr(y);

globalmemorystatus(meminfo);

label11.caption:=inttostr(meminfo.dwTotalPhys)+'字节';

label19.caption:=inttostr(meminfo.dwAvailPhys)+'字节';

label12.caption:=inttostr(meminfo.dwTotalVirtual)+'字节';

label13.caption:=inttostr(meminfo.dwAvailVirTual)+'字节';

getdiskfreespace('c:\'

c2

c3

c4

c5);

label14.caption:=inttostr(c5*c2*c3)+'字节';

label15.caption:=inttostr(c4*c2*c3)+'字节';

end;

end.

以上程序在中文WINDOWS98,WINDOWS95,DEPHI 3.0软件环境下运行通过。

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘