我们每次修改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】
原文:https://www.cnblogs.com/usegear/p/14715039.html