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

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;