[cacu]

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;