Acabei de implementar um Serviço do Windows só que não consigo por ele para rodar de forma Automática quando o windows é iniciado. Não sei se foi alguma coias na programação ou alguma configuração do windows. Também não achei nada sobre esse assunto feito com Delphi aqui.
Código refente ao serviço
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
SvcAutoPub.Controller(CtrlCode);
end;
function TSvcAutoPub.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;
procedure TSvcAutoPub.ServiceExecute(Sender: TService);
begin
Timer.Enabled := True;
while not Terminated do
ServiceThread.ProcessRequests(True); // fica em looping até alguém fechar o serviço
Timer.Enabled := False;
end;
procedure TSvcAutoPub.ServiceStart(Sender: TService; var Started: Boolean);
begin
if Connection.Connected = False then
begin
try
Connection.Connected := True;
finally
tbParametos.Open;
tbProcessos.Open;
tbPublicacoes.Open;
tbPonteiros.Open;
tbAndamentos.Open;
tbClientes.Open;
end;
end;
end;
As Propriedades do Serviço:
Se for alguma configuração do windows ai eu já não para onde vai.