uniGUI 编译代码自动打开浏览器

uniGUI是个编写BS非常好好的控件,在编译时,需要同时打开浏览器,只要代码中加入代码解决:打开工程项目:1、uses中加入单

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软件。

发布者:admin,转转请注明出处:http://www.yc00.com/web/1753980229a5104137.html

相关推荐

发表回复

评论列表(0条)

  • 暂无评论

联系我们

400-800-8888

在线咨询: QQ交谈

邮件:admin@example.com

工作时间:周一至周五,9:30-18:30,节假日休息

关注微信