API - como startar um servico do Windows

 To automatically start a service after its installation use this code } 

procedure TMyService.ServiceAfterInstall(Sender: TService); 

var 

  sm: TServiceManager; 

begin 

  sm := TServiceManager.Create; 

  try 

    if sm.Connect then 

      if sm.OpenServiceConnection(self.name) then 

        sm.StartService; 

  finally 

    sm.Free; 

  end; 

end;