Código Delphi [-]uses ShellAPI; //... procedure TForm1.Button1Click(Sender: TObject); begin ShellAbout(Handle, PChar(Application.Title), #13'done by me! ', Application.Icon.Handle); end;
uses ShellAPI; //... procedure TForm1.Button1Click(Sender: TObject); begin ShellAbout(Handle, PChar(Application.Title), #13'done by me! ', Application.Icon.Handle); end;
', Application.Icon.Handle);
end;