Shell About

Erklärung
ShellAbout zeigt den berühmten Aboutdialog von MS-Produkten

Quelltext
Achtung: Sie müssen die Unit ShellApi einbinden...
  uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
shellAbout(self.handle, 'Applikationsname','Hier etwas reinschreiben',application.icon.handle);
end;