代碼: 選擇全部
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;