ShellAPI 自定义系统的关于对话框 about

uses ShellAPI;


{$IFNDEF Win32} //Var上面end;下面
function ShellAbout(Wnd: HWnd; App, Stuff: PChar; Icon: HIcon): Integer; far; external 'shell';
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellAbout(Application.MainForm.Handle,
              '此处写您的软件名称',
              'Copyright (c) 2001-2002'# 13 'http://www.您的网站.com',
             Application.Icon.Handle);
end;

 

---

开始于：2011年11月6日 17:33:37

 

//图标显示 就是当前这个程序编译后所显示的图标

通过 Wiz 发布