unigui编译完后自动打开浏览器

最新推荐文章于 2022-03-10 13:53:33 发布

原创最新推荐文章于 2022-03-10 13:53:33 发布 · 598 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#openweb

unigui 专栏收录该内容

60 篇文章

订阅专栏

本文介绍了一种在Delphi中使用ShellExecute函数打开网页的方法，详细解释了如何在servermodule中实现这一功能，包括过程定义、所需单元引入及事件触发的代码示例。

1、再servermodule中加入过程。

procedure OpenWeb(page:PChar);
var Returnvalue: Integer;
begin
  Returnvalue := ShellExecute(0,'open',page, nil, nil, 1);
  if Returnvalue <= 32  then
    begin
      case Returnvalue of
         0 : ShowMessage('Error，insufficient memory！');
         2 : ShowMessage('Error，wrong file name！');
         3 : ShowMessage('Error，path is not exist！');
         11 : ShowMessage('Error，EXE Invalid file！');
         else
           ShowMessage(PChar('错误号:'+IntToStr(Returnvalue)+',请检查！。'));
      end;
    end;

end;

2、再uses中加入。

Winapi.ShellAPI,Vcl.Controls,uniGUIDialogs;

3、在servermodule的oncreate事件中加入代码。

procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);
begin

OpenWeb('http://127.0.0.1:8077');
end;