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;