I have a service where it is to be started just calling the executable Raudus. Thus I see that the service made the call and the executable is in the list of windows task manager. But to call the url in the browser 127.0.0.1:88 the same page to get in without completing loading.
Its making a service call the executable raudus and even show the page correctly?
procedure TThreadServico.Execute;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString, StartInString: string;
begin
inherited;
try
ExecuteFile := ExtractFilePath(ParamStr(0)) + ‘\Raudus.exe’;
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do
begin
FMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := self.Handle;
lpFile := PChar(ExecuteFile);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then
begin
repeat
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or Self.Terminated;
TEventLog.Log(‘Finalizado com sucesso.’);
end
else
TEventLog.Log(‘Aconteceu um erro na inicialização.’);
except
on E: Exception do
TEventLog.Log(‘Erro – ‘ + E.Message);
end;
end;