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

用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软件环境下运行通过。

乐视网CTO:智能电视,一个诱人的议题 SeatGeek:Web设计师如何转型iOS开发? IE10支持HTML5标准拖放 IBM IT实践达人赛24强出炉 决赛圈比拼创新实践力 [简讯] Perl迎来25岁生日 高手请进,遍历worksheet的问题 【投诉】:请求大斑竹封杀CuckFSDN2,该ID曾在很多帖子恶意辱骂网友,情节极其恶劣,望封杀以儆效尤~~~ JDOM 如何操作 XML 请教一个多对多关系使用的问题 进入系统后,显示蓝色背景后就死机! 急!!!98,xp双启动如何将dos加入启动菜单 哪位了解北京富兰格电力技术有限公司? 有个问题始终不明白,希望大家帮助,我是个初学者,很简单的!谢谢! 如何让对话框的大小,字体...都不随系统DPI的改变而变化? RT 是哪一篇啊? 急用.谢啦. 小学二年级语文下册有什么课文 谁有小学二年级语文课文朗读(人教版) 求一个背书的最快方法,背的是英语课文. 英语课文背诵法 怎么才能以最快的速度背课文有没有一些好用的办法啊, 怎么背课文快 怎样背课文快?怎样背课文快, 天天在校门口带孩子们过马路 郑大伯红马英九呼吁台立法机构尽快通过服贸协议中国三部门要求规范母乳代用品宣传和销三季度中经产业景气指数:工业经济温和“基础四国”杭州发声督促发达国家兑现“炮轰事件”平静收场:李铁与国足领队IMF总裁拉加德:英国退欧有利于欧盟高洪波回应李铁炮轰:我年轻时也会犯错南京秦淮一泵站发现管涌 部队官兵抢险三亚城郊法院执行清场 首次使用无人机最强生命系统步步权谋网游之生物改造聚灵成仙贵女香港又一城旅游名都滑雪场旅游新加坡旅游遇仙寺旅游鼓岭旅游度假区旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘