提高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(,'open',page, nil, nil, );
if Returnvalue <= then
begin
case Returnvalue of
: ShowMessage('错误，内存不足！');
: ShowMessage('错误，文件名错误！');
: ShowMessage('错误，路径名错误！');
: ShowMessage('错误，EXE 文件无效！');
else
ShowMessage(PChar('错误代码:'+IntToStr(Returnvalue)+',请检查错误。'));
end;
end;
end;
begin ExploreWeb('http://127.0.0.1:8077');
end;