3

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: inserir a descrição da imagem aqui Se for alguma configuração do windows ai eu já não para onde vai.

16
  • 1
    Você registrou seu serviço no OS? Installutil.exe 14/10/2019 às 21:18
  • 1
    sim ele funciona de boa só não inicia automático
    – user82731
    14/10/2019 às 21:20
  • 2
    Ele aparece na lista de serviços e nas configurações mostra a opção para iniciar automaticamente? 14/10/2019 às 21:25
  • Claro se eu tive que instalar o serviço
    – user82731
    14/10/2019 às 21:26
  • 1
    Já tenho 2 semanas procurando e nada...
    – user82731
    14/10/2019 às 21:35

3 Respostas 3

0

Adicione no evento OnCreate a instrução: Self.StartType := stBoot;

Dessa forma o serviço será instalado e setado como "Automático", de um start nele faça seus testes se o serviço esta executando. Reiniciei o Windows e verifique se tudo ocorre como planejado.

Lembrando que esta propriedade pode ser setado no Object Inspector, o padrão dela é stAuto mas não inicializa o serviço automaticamente.

0

Você pode incluir seu serviço na inicialização automática do Windows da seguinte forma:

Insira o código no evento AfterInstall

procedure TService.ServiceAfterInstall(Sender: TService);
var
  oRegEdit : TRegistry;
begin
  oRegEdit := TRegistry.Create(KEY_READ or KEY_WRITE);
  try
    oRegEdit.RootKey := HKEY_LOCAL_MACHINE;

    if oRegEdit.OpenKey('\SYSTEM\CurrentControlSet\Services\[ServiceName]',False) then
    begin
      oRegEdit.WriteString('Description','Serviço de sincronização do aplicativo');
      oRegEdit.CloseKey;
    end;
  finally
    FreeAndNil(oRegEdit);
  end;
end;

Substitua o [ServiceName] pelo nome do seu serviço para que o Windows consiga inicializar o mesmo. Assim após o seviço ser instalado, o mesmo será incluído na inicialização automática.

Obs.: Deixe a propriedade StartType como stAuto

-1

Vejo que você já usa um comando para instalar, mas tente usar o seguinte comando executando um .bat minimizado.

SC CREATE NOME_DO_SERVICO binpath= "NOME_DO_EXECUTAVEL.exe" start= auto displayname= "NOME_DE_EXIBICAO"

na parte do start=auto é onde ele vai ficar como inicialização automática.

9
  • vou testar e posto os resultados.
    – user82731
    16/10/2019 às 21:00
  • @EduMendonça deu certo quanto ao serviço? 21/10/2019 às 12:41
  • em partes. Ele do modo que me informou ele inicia com o Windows só que ele está vindo parados.
    – user82731
    21/10/2019 às 17:24
  • 1
    @EduMendonça No seu objeto TService, verifique se a propriedade está como StartType=stAuto 21/10/2019 às 17:53
  • A propriedade Está setada como stAuto.
    – user82731
    21/10/2019 às 17:55

Você deve fazer log-in para responder a esta pergunta.