如何使用windows的default about對話框

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1379
註冊時間: 2008年 11月 26日, 00:49

如何使用windows的default about對話框

文章 tim »

使用 ShellAbout 這個 api, 記得要 use ShellAPI

代碼: 選擇全部

    procedure Tform1.Button5Click(Sender: TObject); 
    begin 
      ShellAbout(Application.Mainform.Handle, 
                 'My great Delphi application', 
                 'Version 2002'#13#10+ 
                 'Compiled 2001-08-03 15:25:10', 
                 Application.Icon.Handle); 
    end; 
多多留言, 整理文章, 把經驗累積下來.....
回覆文章