ATFORM_WIN32_NT) then
begin
if Win32CSDVersion = '''' then
lblOS.Caption := lblOS.Caption+Format(''%s %d.%d (Build %d)'', [Platform, Win32MajorVersion,
Win32MinorVersion, BuildNumber])
else
lblOS.Caption := lblOS.Caption+Format(''%s %d.%d (Build %d: %s)'', [Platform, Win32MajorVersion,
Win32MinorVersion, BuildNumber, Win32CSDVersion]);
end
else
lblOS.Caption := lblOS.Caption+Format(''%s %d.%d'', [Platform, Win32MajorVersion,
Win32MinorVersion])
end;

procedure Taboutbox.Delay(x,y:word);
var timeout:TDateTime;
begin
//该成为WINDOWS APP启动时间这个函数来做!
timeout:=now+encodeTime(0,x div 60,x mod 60,y);
While now<timeout do
Application.ProcessMessages;
end;


procedure TAboutBox.FormCreate(Sender: TObject);
begin
{**********************************************}
try
Caption:=''关于''+application.Title; //标题
ProgramIcon.Picture.icon:=Application.Icon; //图标
ProductName.Caption:=ProductName.Caption+Application.Title;//产品名称
version.Caption:=version.Caption+''1.00''; //版本
Copyright.Caption:=Copyright.Caption+''中国 ● 西安 梁明工作室 '';
others.Caption:=''警 告：未经允许，任何个人、单位不得以任何方式''+#13#10+
''非法拷贝、盗用！否则，系统在运行过程中出现的任何''+#13#10+
''问题作者将不负任何连带责任！'';
////初始化---------------------------
GetMemoryInfo;
GetOsinfo;
{***********************}
//初始化变量s
s:='''';
except
MessageBox(handle,''某些信息不能取得'',''提示'',MB_OK);
end;
end;

procedure TAboutBox.ProgramIconClick(Sender: TObject);
var i,fontheight:Byte;
begin
try
panel1.Hide;
fontheight:=author.Canvas.TextHeight(''A'');
for i:=0 to 150+fontHeight*8 do
if not panel1.Visible then //在此处添加说明
with author.Canvas do
begin
textout(25,100-i,''感谢您选用"''+Application.Title+''"系统！'');
textout(25,100+fontheight-i,'''');
textout(25,100+fontheight*2-i,''系统说明——'');
textout(25,100+fontheight*3-i,''软件作者：梁 明'');
textout(25,100+fontheight*4-i,''开发前端：Borland Delphi 4.0'');
textout(25,100+fontheight*5-i,''数据处理：Borland Paradox 7.0'');
textout(25,100+fontheight*6-i,''开发周期：99/02/10-99/02/13'');
textout(25,100+fontheight*7-i,'''');
textout(25,100+fontheight*8-i,''技术支持——'');
textout(25,100+fontheight*9-i,''热线支持：(029)7295153 梁先生'');
textout(25,100+fontheight*10-i,''方便传呼：126-5030345 梁先生'');
textout(25,100+fontheight*11-i,''电子邮件：delphifan@990.net'');
textout(25,100+fontheight*12-i,''网上服务：liangming.163.net'');
textout(25,100+fontheight*13-i,'''');
textout(25,100+fontheight*14-i,'' 梁 明 于梁明工作室 '');
textout(25,100+fontheight*15-i,'' 1999/02/10'');
Delay(0,20);
end;
finally
panel1.Show;
Aboutbox.Refresh;
end;
end;

procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
panel1.Show;
Aboutbox.Refresh;
close;
end;

procedure TAboutBox.FormKeyPress(Sender: TObject; var Key: Char);
begin
s:=s+key; //用户输入"Author"这显示
if StrUpper(Pchar(s))=''AUTHOR'' then
begin
ProgramIconclick(sender);
s:=''''
end;
end;

end.

窗体As text代码
//主窗体
object Form1: TForm1
Left = 195
Top