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条)