📄 dpi36.htm
字号:
<html>
<head>
<title>用DEPHI 3.0实现动画ABOUT窗口</title>
<meta content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
</tr>
</tbody>
</table>
<table border=0 bordercolordark=#66aaff bordercolorlight=#66aaff cellpadding=0
cellspacing=0 width=680 align="center" height="128">
<tbody>
<tr>
<td bgcolor=#F9D23C height=14>
<div align=center class=H1> <b>用DEPHI 3.0实现动画ABOUT窗口</b></font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=1033>
<p align="center"><b><font size="3"><br>
</font></b> <br>
一般系统的ABOUT窗口中都含有当前系统的信息(如:CPU类型,硬盘容量,内存容量等),一个标志系统的图标,一个OK按钮等内容。笔者在工作中用DEPHI
3.0实现了动画效果的ABOUT窗口。<br>
<br>
一．创建含有如下控件的窗体： </p>
<table bgcolor="#6699cc" border="0" cellpadding="0" cellspacing="1" width="75%" class="font" align="center">
<tr>
<td width="36%"><font color="#ffffff">控件</font></td>
<td width="20%"><font color="#ffffff">属性 </font></td>
<td width="44%"><font color="#ffffff">值</font></td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">FORM1</td>
<td bgcolor="#ffffff" width="20%">CAPTION </td>
<td bgcolor="#ffffff" width="44%">动画ABOUT窗口 </td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">ANIMATE1</td>
<td bgcolor="#ffffff" width="20%">COMMONAVI </td>
<td bgcolor="#ffffff" width="44%">aviFindFolder </td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%"></td>
<td bgcolor="#ffffff" width="20%">ACTIVE</td>
<td bgcolor="#ffffff" width="44%">true</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">BUTTON1 </td>
<td bgcolor="#ffffff" width="20%">CAPTION </td>
<td bgcolor="#ffffff" width="44%">OK</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">LABEL1 </td>
<td bgcolor="#ffffff" width="20%">CAPTION </td>
<td bgcolor="#ffffff" width="44%">通用进销存管理系统V3.0</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%" height="15">LABEL2 </td>
<td bgcolor="#ffffff" width="20%" height="15">CAPTION </td>
<td bgcolor="#ffffff" width="44%" height="15">版权所有:1997-1999年</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">LABEL3 </td>
<td bgcolor="#ffffff" width="20%">CAPTION </td>
<td bgcolor="#ffffff" width="44%">物理内存总容量：</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">LABEL4 </td>
<td bgcolor="#ffffff" width="20%">CAPTION</td>
<td bgcolor="#ffffff" width="44%">虚拟内存总容量：</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">LABEL5 </td>
<td bgcolor="#ffffff" width="20%">CAPTION </td>
<td bgcolor="#ffffff" width="44%">可用虚拟内存容量：</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">LABEL6 </td>
<td bgcolor="#ffffff" width="20%">CAPTION </td>
<td bgcolor="#ffffff" width="44%">硬盘容量：</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">LABEL7 </td>
<td bgcolor="#ffffff" width="20%">CAPTION </td>
<td bgcolor="#ffffff" width="44%">硬盘可用容量：</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">LABEL8</td>
<td bgcolor="#ffffff" width="20%">CAPTION</td>
<td bgcolor="#ffffff" width="44%">CPU类型：</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">LABEL9 </td>
<td bgcolor="#ffffff" width="20%">CAPTION</td>
<td bgcolor="#ffffff" width="44%">显示器分辨率：</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">LABEL18 </td>
<td bgcolor="#ffffff" width="20%">CAPTION </td>
<td bgcolor="#ffffff" width="44%">用物理内存：</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="36%">LABEL11～LABEL19 </td>
<td bgcolor="#ffffff" width="20%">CAPTION </td>
<td bgcolor="#ffffff" width="44%">空</td>
</tr>
</table>
<p><br>
二．程序：<br>
unit sysinfo;<br>
interface<br>
uses<br>
Windows, Messages, SysUtils, <br>
Classes, Graphics, Controls, Forms, Dialogs,<br>
StdCtrls, ComCtrls;<br>
type<br>
TForm1 = class(TForm)<br>
Button1: TButton;<br>
Animate1: TAnimate;<br>
Label1: TLabel;<br>
Label2: TLabel;<br>
Label3: TLabel;<br>
Label4: TLabel;<br>
Label5: TLabel;<br>
Label6: TLabel;<br>
Label7: TLabel;<br>
Label8: TLabel;<br>
Label9: TLabel;<br>
Label10: TLabel;<br>
Label11: TLabel;<br>
Label12: TLabel;<br>
Label13: TLabel;<br>
Label14: TLabel;<br>
Label15: TLabel;<br>
Label16: TLabel;<br>
Label17: TLabel;<br>
Label18: TLabel;<br>
Label19: TLabel;<br>
procedure Button1Click(Sender: TObject);<br>
procedure FormCreate(Sender: TObject);<br>
<br>
private<br>
{ Private declarations }<br>
public<br>
{ Public declarations }<br>
end;<br>
<br>
var<br>
Form1: TForm1;<br>
<br>
implementation<br>
<br>
{$R *.DFM}<br>
<br>
procedure TForm1.Button1Click(Sender: TObject);<br>
begin<br>
close;<br>
end;<br>
<br>
procedure TForm1.FormCreate(Sender: TObject);<br>
var x,y:integer;<br>
sysinfo:Tsysteminfo;<br>
meminfo:Tmemorystatus;<br>
c2,c3,c4,c5:integer;<br>
<br>
begin<br>
getsysteminfo(sysinfo);<br>
label16.caption:=inttostr(sysinfo.dwProcessorType);<br>
x:=getsystemmetrics(0);<br>
y:=getsystemmetrics(1);<br>
label17.caption:=inttostr(x)+'*'+inttostr(y);<br>
globalmemorystatus(meminfo);<br>
label11.caption:=inttostr(meminfo.dwTotalPhys)+'字节';<br>
label19.caption:=inttostr(meminfo.dwAvailPhys)+'字节';<br>
label12.caption:=inttostr(meminfo.dwTotalVirtual)+'字节';<br>
label13.caption:=inttostr(meminfo.dwAvailVirTual)+'字节';<br>
getdiskfreespace('c:\',c2,c3,c4,c5);<br>
label14.caption:=inttostr(c5*c2*c3)+'字节';<br>
label15.caption:=inttostr(c4*c2*c3)+'字节';<br>
end;<br>
end.<br>
<br>
以上程序在中文WINDOWS98，WINDOWS95，DEPHI 3.0软件环境下运行通过。 <br>
<br>
<br>
<br>
转载自popcool开发专区
<p align="center"><font
color=#ffa000><b><br>
</td>
</tr>
</tbody>
</table>
</div>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -