Windows service does not start automatically

Question

I just implemented a Windows service I just can’t get it to turn automatically when the windows is started. I don’t know if it was some thing in the programming or some configuration of the windows. I also found nothing on this subject made with Delphi here.

Code in service

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;

The Properties of the Service: If it is some windows configuration there I no longer where goes.

Answer 1

Add to the event OnCreate the instruction: Self.StartType := stBoot;

In this way the service will be installed and set as "Automatic", from a start in it make its tests if the service is running. I restarted Windows and make sure everything goes as planned.

Remembering that this property can be set in Object Inspector, its default is stAuto but does not initialize the service automatically.

Answer 2

You can include your service on automatic Windows startup as follows:

Enter the code in the event 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;

Replace the [ServiceName] by the name of your service so that Windows can boot it. So after the service is installed, it will be included on automatic startup.

Note: Leave the property StartType as stAuto

Answer 3

I see you already use a command to install, but try to use the following command by running a minimized . bat.

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

on the part of start=auto is where it will stand as auto boot.