6
He creado un servicio de Windows en Delphi. Mi código se ejecuta dentro ServiceExecuteCrear un servicio de Windows en delphi
procedure TMyService.ServiceExecute(Sender: TService);
while not Terminated do
begin
CallSomeProcedure;
Sleep(1000);
ServiceThread.ProcessRequests(false);
end;
end;
Por desgracia, no puedo obtener este código se ejecute. No parece llamar al procedimiento incluso cuando estoy depurando. El código en Myservice.exe tiene este aspecto.
begin
if not Application.DelayInitialize or Application.Installing then
Application.Initialize;
Application.CreateForm(TMyService, MyService);
Application.Run;
end.
puedo conseguir el serviceExecute para funcionar si añado
MyService.ServiceExecute(nil);
en MiServicio.exe sin embargo, si se instala como un servicio que no parece estar funcionando como Application.Run no hace nada
No estoy seguro de lo que estoy haciendo mal, pero cualquier ayuda sería muy apreciada.
Gracias
Nada me parece incorrecto. –