随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

uses ShellAPI;

procedure TForm1.AbortClick(Sender: TObject);
begin
  ShellAbout(0, 'MySoft', 'Copyright (c) 2007-2008', Application.Icon.Handle);
end;
posted on 2007-12-19 09:57  万一  阅读(...)  评论(...编辑  收藏