Was viele nicht wissen: Unter Windows steht uns ein ganz schlichtes Info-Fenster im Betriebssystem zur Verfügung, welches wir mit eigenen Daten füttern und aufrufen können.
Wichtig ist, daß wir die
Unit ShellAPI in die Uses-Klausel aufnehmen. Nun müssen wir das Fenster nur noch aufrufen:
Code:
procedure TForm1.Info2Click(Sender: TObject);
begin
ShellAbout(self.Handle, 'Unser Programm',
'Copyright bei mir selbst' + #13 +
'Version 1.0.0.0', Application.Icon.Handle);
end;