admin 管理员组

文章数量: 1086019

uniGUI是个编写B/S非常好好的控件，在编译时，需要同时打开浏览器，只要代码中加入代码解决：

打开工程项目：

1、uses中加入单元

uses
  windows,
  ShellAPI,
  SysUtils,
    2、工程执行代码中，加入

begin
  ReportMemoryLeaksOnShutdown := True;
  Application.Initialize;
  TUniServerModule.Create(Application);
  //   增加的自动打开浏览器运行代码
  if extractFileExt(GetModuleName(Hinstance))='.exe' then
       shellExecute(Application.Handle,
       PChar('Open'),
       PChar('Http://127.0.0.1:8077'),
       Nil,Nil, SW_MAXIMIZE);                 
  Application.Run;
end.

编译完成，就会自动打开浏览器，执行访问Web软件。

本文标签： 打开浏览器 代码 uniGUI

版权声明：本文标题：uniGUI 编译代码自动打开浏览器 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1727324432a1112297.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。