Windows-About-Dialog anzeigen

[Luckie]

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;