首页 > 其他 > 详细

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

时间:2021-04-28 22:25:18      阅读:51      评论:0      收藏:0      [点我收藏+]

我们每次修改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】

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

原文:https://www.cnblogs.com/usegear/p/14715039.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!