|
---- 一般系統(tǒng)的ABOUT窗口中都含有當(dāng)前系統(tǒng)的信息(如:CPU類型,硬盤容量,內(nèi)存容量等),一個(gè)標(biāo)志系統(tǒng)的圖標(biāo),一個(gè)OK按鈕等內(nèi)容。筆者在工作中用DEPHI
3.0實(shí)現(xiàn)了動(dòng)畫效果的ABOUT窗口。
一． 創(chuàng)建含有如下控件的窗體：
控件屬性 值
FORM1 CAPTION 動(dòng)畫ABOUT窗口
ANIMATE1 COMMONAVI aviFindFolder
ACTIVEtrue
BUTTON1 CAPTION OK
LABEL1 CAPTION 通用進(jìn)銷存管理系統(tǒng)V3.0
LABEL2 CAPTION 版權(quán)所有:1997-1999年
LABEL3 CAPTION 物理內(nèi)存總?cè)萘浚?br>LABEL4 CAPTION 虛擬內(nèi)存總?cè)萘浚?br>LABEL5 CAPTION 可用虛擬內(nèi)存容量：
LABEL6 CAPTION 硬盤容量：
LABEL7 CAPTION 硬盤可用容量：
LABEL8 CAPTION CPU類型：
LABEL9 CAPTION 顯示器分辨率：
LABEL18 CAPTION 用物理內(nèi)存：
LABEL11，LABEL12，LABEL13，
LABEL14，LABEL15，LABEL16，LABEL17
LABEL19 CAPTION 空
二．程序：
unit sysinfo;
interface
uses
Windows, Messages, SysUtils,
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)+'字節(jié)';
label19.caption:=inttostr(meminfo.dwAvailPhys)+'字節(jié)';
label12.caption:=inttostr(meminfo.dwTotalVirtual)+'字節(jié)';
label13.caption:=inttostr(meminfo.dwAvailVirTual)+'字節(jié)';
getdiskfreespace('c:\',c2,c3,c4,c5);
label14.caption:=inttostr(c5*c2*c3)+'字節(jié)';
label15.caption:=inttostr(c4*c2*c3)+'字節(jié)';
end;
end.
---- 以上程序在中文WINDOWS98，WINDOWS95，DEPHI 3.0軟件環(huán)境下運(yùn)行通過。
|
