Bom,
Criei um serviço no Delphi e o mesmo não parece funcionar correto.
Ele fica tentando inicializar e fica com status iniciando e não sai
disso!
No Log, aparece um erro: Erro System Error. Code: 1053.
O serviço não respondeu à requisição de início ou controle em tempo hábil.
Mas mesmo assim o status fica como iniciando.
para criar o serviço, uso:
SM.ServiceName := Service_Name;
SM.AddTheService ('Serviço On-line do ' + ExtractFileName
(Application.ExeName),
SC_MANAGER_CREATE_SERVICE,
SERVICE_WIN32_OWN_PROCESS,
SERVICE_AUTO_START,
SERVICE_ERROR_NORMAL,
Service_File,
Dependencies,
'',
'');
para Iniciar o serviço, uso:
SM.ServiceName := Service_Name;
SM.StartTheService;
O q pode ser que está errado ?
Alex
[As partes desta mensagem que não continham texto foram removidas]
