uses ShellAPI; procedure TForm1.AbortClick(Sender: TObject); begin ShellAbout(0, 'MySoft', 'Copyright (c) 2007-2008', Application.Icon.Handle); end;
转载于:https://www.cnblogs.com/28088191/archive/2008/06/13/1220362.html
uses ShellAPI; procedure TForm1.AbortClick(Sender: TObject); begin ShellAbout(0, 'MySoft', 'Copyright (c) 2007-2008', Application.Icon.Handle); end;
转载于:https://www.cnblogs.com/28088191/archive/2008/06/13/1220362.html