How immediately start a service after its installation?

Previous  Top  Next

    
 

 

 

Code:

{ 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;

 

 

©Drkb::02239

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php