How immediately start a service after its installation?
Материал из DRKB
How immediately start a service after its installation?[править | править код]
{ 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;
Language: en
Source: Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 02239