- procedure TForm1.Info2Click(Sender: TObject);
- begin
- ShellAbout(self.Handle, 'Mein Programm',
- 'Copyright © 2003 Vorname Nachname oder Firma' + #13 +
- 'Version 1.0.0.0', Application.Icon.Handle);
- end;
Windows-About-Dialog anzeigenModerator: DGL-Team
|