Mega Code Archive

 

Categories / Delphi / Examples

 

How to immediately start a service after its installation

Title: How to immediately start a service after its installation 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;