我翻译的一些文章3

[huanzhugege]

Adding an icon to the standard Windows About dialog
添加图标到windows标准“关于”对话框

If you want to bring up the standard Windows 'About..' dialog box, then you can use ShellAbout() from the ShellAPI unit and customize the appearance by adding your own text, application name and an icon.
如果您想使用windows标准“关于”对话框，您可以使用shellapi单元中的ShellAbout()函数，并且可以向对话框中添加您自己的文字、程序名和图标。

The downside to this technique is that it will say '(c) Microsoft' in the box.
使用此技术，对话框的下边将显示“(c) Microsoft”。


The upside is that you see the registered user and some system parameters (free space..).
It's a quick-and-dirty solution for an About-box.
您将在对话框的上边显示注册的用户名和一些系统信息（例如可用内存空间）。

~~~~~~~~~~~~~~~~~~~~~~~~~
uses
Windows, ShellAPI;

procedure TForm1.About1Click(Sender: TObject) ;
begin
ShellAbout(Application.MainForm.Handle,
'My great Delphi application',
'Version 2002'#13#10+
'Compiled 2001-08-03 15:25:10',
Application.Icon.Handle) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~