如何使用windows的default about對話框
發表於 : 2008年 11月 27日, 17:58
使用 ShellAbout 這個 api, 記得要 use ShellAPI
代碼: 選擇全部
procedure Tform1.Button5Click(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;