Saludos,
He creado una aplicacion como un servicio en Delphi, File|New|Other|
Application Service. Pero mi problema es que esta solo dura unos 15 seg. al ejecutarse, ademas trato de registrarlo y me da el siguiente error .
Windows cannot find "Miservicio.exe\INSTALL".
aqui les pogo mi codigo :
Cita:
procedure TMiniBarService.ServiceStart(Sender: TService;
var Started: Boolean);
begin
tEjecute.Enabled := True;
Application.Run;
end;
procedure TMiniBarService.tEjecuteTimer(Sender: TObject);
begin
while not Self.Terminated do
ServiceThread.ProcessRequests(True)
end;
procedure TMiniBarService.ServiceExecute(Sender: TService);
begin
while not Self.Terminated do
ServiceThread.ProcessRequests(True);// wait for termination
end;
procedure TMiniBarService.ServiceBeforeInstall(Sender: TService);
begin
Application.Run;
end;
procedure TMiniBarService.ServiceStop(Sender: TService;
var Stopped: Boolean);
begin
stopped:=true;
end;
|