DELPHI BLOG appunti di programmazione

Per far partire un servizio dopo la sua installazione mettere la seguente porzione di codice nel metodo afterinstall del servizio:

var

servman: TServiceManager;

begin

servman:= TServiceManager.Create;

try

if servman.Connect then

if servman.OpenServiceConnection(self.name) then

servman.StartService;

finally

servman.Free;

end;

Compatibile con: