如何打开关于系统的关于对话框？(50分)

如何打开系统的关于对话框？我记的是用一个about API函数可以实现！

function ShowAbout():boolean;<br>//显示关于窗口<br>var<br>&nbsp; hIcon,hInst:integer;<br>begin<br>&nbsp; hInst:=getwindowword(application.Handle,GWL_HINSTANCE);<br>&nbsp; hIcon:=ExtractIcon(hInst,pchar(application.exename),0);<br>&nbsp; Result:=boolean(shellabout(application.Handle,<br>&nbsp; &nbsp; pchar(SAppName),pchar(SAppName+sappver),hicon));<br>end;<br>

一条API够了<br><br>ShellAbout(Handle,'程序名称','作者：XX',Application.icon.handle);

shellabout

显示Windows的“关于”对话框<br>&nbsp;<br>在USES部分，加入ShellApi单元。<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>ShellAbout ( Handle, '应用程序名称', '你的名字',Application.Icon.Handle );<br>end; &nbsp;<br>