unigui的程序编译后自动运行傻傻的手动【7】

我们每次修改unigui程序后，一般需要编译后执行，查看效果。可是每次都要关闭杀掉服务程序，再刷新浏览器才能实现。

EMB应该知道这个反人类的做法吧。实际上提供了参数配置：自动kill服务程序，自动打开浏览器调用页面的功能。

project->oprions

taskkill /f /im $(OUTPUTFILENAME)  2>1 || exit /B 0

如此设定后，再也不用傻傻地，每次退出server，再刷新浏览器看效果了。

如何自动打开浏览器调用：

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;

感谢【https://www.cnblogs.com/tulater/p/12246234.html】