No hay respuestas en este tema

[veguero]

Buen dia.
Quiero migrar un servicio de delphi 7 a lazarus por que requiero instalarlo en un servidor con debian.
Ya instale el paquete pre-cargado para demonios.

En el evento o método "onexecute" del servicio (en delphi) siempre coloco este código para no que éste no se detenga por ningún motivo al menos que el usuario desee.

delphi

procedure TSRVPrem2Novem.ServiceExecute(Sender: TService);
begin
   While not Terminated do
   begin
     Sleep(20);
     ServiceThread.ProcessRequests(False);
    end;
end;

He tratado de hacer lo mismo en lazarus pero no tengo la propiedad "terminated" de librería SvcMgr que en delphi es agregada automáticamente al crearlo.

Mi pregunta: Existe otra manera de hacerlo?
Gracias de Antemano a quien pueda ayudarme...