Raudus Services Windows

Raudus Forums Deployment Raudus Services Windows

This topic contains 0 replies, has 1 voice, and was last updated by  Leivio 10 years, 3 months ago.

Viewing 1 post (of 1 total)
  • Author
    Posts
  • #628

    Leivio
    Participant

    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;

Viewing 1 post (of 1 total)

You must be logged in to reply to this topic.