提高unigui開發效率的兩個方法(02)

---

1、編譯時自己退出運行的程序。

在做unigui開發時，每次編譯運行時，unigui的應用都會在后台運行，每次重新編譯時都必須手工在任務欄里將應用退出才行，非常麻煩，可以在項目編譯的參數里加上殺進程的命令，這樣每次重新編譯時就會自動將舊的進程殺掉。

 命令參數如下：taskkill /f /im $(OUTPUTFILENAME)  2>1 || exit /B 0

---

2、每次運行應用時，自動調用 默認瀏覽器 打開應用。//一定要用Chrome 內核的瀏覽器

在每次運行應用時都要手動打開瀏覽器，輸入地址各端口，還是有點麻煩，在ServerModule里加上自動啟動的方法，每次運行時就能自己打開瀏覽器並打開應用。

uses
 shellAPI  //ShellExecute
,Dialogs  //ShowMessage
;
procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);
procedure ExploreWeb(page:PChar);
var Returnvalue: Integer;

begin
  Returnvalue := ShellExecute(0,'open',page, nil, nil, 1);
  if Returnvalue <= 32  then
    begin
      case Returnvalue of
         0 : ShowMessage('錯誤，內存不足！');
         2 : ShowMessage('錯誤，文件名錯誤！');
         3 : ShowMessage('錯誤，路徑名錯誤！');
         11 : ShowMessage('錯誤，EXE 文件無效！');
         else
           ShowMessage(PChar('錯誤代碼:'+IntToStr(Returnvalue)+',請檢查錯誤。'));
      end;
   end;
end;
begin  ExploreWeb('http://127.0.0.1:8077');
end;