API - como startar um servico do Windows

Top  Previous  Next

 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