Problemas con Servicios
 

Estimados colegas quisiera ver si pueden darme una mano con el siguiente problema.-

Estoy escribiendo una aplicacion que funcionara como un servicio en windows, la idea de este servicio es ejecutar otra aplicacion cada cierto tiempo.

El problema que tengo que es que una ves que tengo instaldo el servicio y quiero iniciarlo se demora bastante y me arroja el siguiente msg de error:


"No se puede iniciar el Servicio de Mantencion Myserv en el equipo local"

Error 1053:Elservicio no ha respondido a la peticion o inicio del control en un tiempo adecuado"



NOTA:

Este Servicio lo probe como una aplicacion normal y funsiona sin problemas


Agradeceria cualquier comentario que pudiese darme pistas a resolver este problema.-

Cambio de problema
 

Bueno en realacion al problema que he planteado , el servicio lo instalaba con una funsion que encontre en un foro .

Probe instalar el servicio de forma tradiciona y luego lo inicie sin ningun problema , por lo que creo el error esta en la funsion que estaba usando para instalar el servicio.

Manera Tradicional : miservicio.exe -install (modo linea de comandos)

Acontinuacion de Detallo la funsion que estaba usando la cual me daba el error al momento de iniciar el servicio..si pueden dar una solucion se los agradeceria bastante.


onst
svName = 'MySrv';
svDisplayName = 'Servicio de Mantencion Marco Bernal';

procedure TForm1.Button1Click(Sender: TObject);
var
vSCManager, vServiceCreated: Cardinal;
begin
vSCManager := 0;
vSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);

vServiceCreated := 0;
vServiceCreated := CreateService(vSCManager, svName, svDisplayName, SERVICE_ALL_ACCESS,
SERVICE_WIN32_OWN_PROCESS or SERVICE_INTERACTIVE_PROCESS,
SERVICE_AUTO_START, SERVICE_ERROR_IGNORE, 'C:\windows\system32\serkll.exe', nil, nil, nil, nil, nil);


CloseServiceHandle(vServiceCreated);
CloseServiceHandle(vSCManager);


end;

Espero este enlace te sirva, es una manera alternativa de instalar una aplicación como servicio

http://www.laneros.com/archive/index.php/t-49666.html

... .- .-.. ..- -.. --- ...