Mi aplicacion como un Service

[kavisch]

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 :

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;

[[seoane]]

Empezado por kavisch

Windows cannot find "Miservicio.exe\INSTALL".

No se si se trata de un error al escribir, pero para instalar el servicio la linea de comando es:

Miservicio.exe /INSTALL

[kavisch]

Buno gracias aparentemente era un error al escribir el comando...
ya me funciona bien, muchas gracias...