📄 db0005.htm
字号:
<HTML><HEAD><TITLE>亦多EastDoor</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.2919.6307" name=GENERATOR><link rel="stylesheet" href="../eastdoornew.css"></HEAD>
<BODY bgColor=#ffffff text=#000066 vLink=#e0e0e0>
<TABLE align=center border=0 borderColorLight=#90 cellPadding=0 cellSpacing=0
width=753>
<TBODY>
<TR align=middle>
<TD width=200 valign="top"><img src="../image/logo.gif" width="200" height="70"></TD>
<TD align=left height=56 vAlign=top width=603 colspan="2">
<div align="right">
<a href="http://202.113.29.120/">
<img src="../image/titlesoft.gif" height="72" border="0" alt="亦多下载中心"></a>
</div>
</TD>
</TR>
</TBODY>
</TABLE>
<div align="center"></div>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width=755>
<TBODY>
<TR>
<TD align=middle height=292 vAlign=top width="100%">
<TABLE align=center border=0 cellPadding=0 cellSpacing=1
width="100%" bgcolor="#6699CC">
<TBODY>
<TR align=left bgcolor="#FFFFFF">
<TD colSpan=4 vAlign=top height=2>
<div align="left">
<table width="100%" border=" 0" cellspacing="1">
<tr bgcolor="#C1D6EA">
<td>
<div align="center">-=<font color="#FFFF33">-</font> 数据库
<font color="#FFFF33">-</font>=-</div>
</td>
</tr>
</table>
</div>
</TD>
</TR>
<TR vAlign=middle bgcolor="#6699CC">
<TD colSpan=4 height="325">
<TABLE border=0 cellSpacing=0 height=100% width="100%" align="center">
<TBODY>
<TR vAlign=top>
<TD width="67%" rowspan="2" bgcolor="#FFFFFF">
<p align="center"><font size="+1" color="#FF00FF">用DEPHI 3.0实现动画ABOUT窗口</font></p>
<p align="left"> 一般系统的ABOUT窗口中都含有当前系统的信息(如:CPU类型,硬盘容量,内存容量等),一个标志系统的图标,一个OK按钮等内容。笔者在工作中用DEPHI
3.0实现了动画效果的ABOUT窗口。 </p>
<h3 align="left"><font color="#a30004">一． 创建含有如下控件的窗体：</font></h3>
<div align="left">
<pre>控件属性 值
FORM1 CAPTION 动画ABOUT窗口
ANIMATE1 COMMONAVI aviFindFolder
ACTIVEtrue
BUTTON1 CAPTION OK
LABEL1 CAPTION 通用进销存管理系统V3.0
LABEL2 CAPTION 版权所有:1997-1999年
LABEL3 CAPTION 物理内存总容量：
LABEL4 CAPTION 虚拟内存总容量：
LABEL5 CAPTION 可用虚拟内存容量：
LABEL6 CAPTION 硬盘容量：
LABEL7 CAPTION 硬盘可用容量：
LABEL8 CAPTION CPU类型：
LABEL9 CAPTION 显示器分辨率：
LABEL18 CAPTION 用物理内存：
LABEL11，LABEL12，LABEL13，
LABEL14，LABEL15，LABEL16，LABEL17
LABEL19 CAPTION 空</pre>
</div>
<h3 align="left"><font color="#a30004">二．程序：</font></h3>
<div align="left">
<pre>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)+'字节';
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.</pre>
</div>
<p align="left"> 以上程序在中文WINDOWS98，WINDOWS95，DEPHI 3.0软件环境下运行通过。 </p>
<blockquote>
<p align="left"> </p>
</TD>
</TR>
<TR vAlign=top> </TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width=755>
<TBODY>
<TR bgColor=#000000>
<TD align=middle colSpan=4 height=2 vAlign=top></TD>
</TR>
</TBODY>
</TABLE>
<table cellspacing="1" cellpadding="2" width="100%" border="0">
<tr>
<td align=center><font class=footer>编程中心<br><img src="image/hr_black.gif" height=1 width=50%><br>版权所有：天津市数据通信局 中国亦多网络Eastdoor.com</font><br>有任何疑问请与<a href="mailto:webmaster@mail.eastdoor.com">网络管理员</a>联系</td>
</tr>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -