频道分类

Delphi 提高unigui开发效率的两个方法

作者:admin 来源: 日期:2020/11/26 20:13:06 人气: 标签:

 
1、编译时自己退出运行的程序。

在做unigui开发时,每次编译运行时,unigui的应用都会在后台运行,每次重新编译时都必须手工在任务栏里将应用退出才行,非常麻烦,可以在项目编译的参数里加上杀进程的命令,这样每次重新编译时就会自动将旧的进程杀掉。



命令参数如下:taskkill /f /im $(OUTPUTFILENAME)  2>1 || exit /B 0

2、每次运行应用时,自动调用浏览器打开应用。

在每次运行应用时都要手动打开浏览器,输入地址各端口,还是有点麻烦,在ServerModule里加上自动启动的方法,每次运行时就能自己打开浏览器并打开应用。

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;
 

下面是调用方法

procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);
begin
  ExploreWeb('http://127.0.0.1:8080');
end;

来源:https://blog.csdn.net/sglqh/article/details/102758608