Prüfen ob Service läuft...

[Sir Rufo]

Ich schmeiss mich da mal auf Luckies Seite.

Bei einem Service kann es durchaus sein, dass man den Dienst starten möchte und nach einer Zeit x wieder anhalten möchte.

Gerade kursiert hier auch noch ein CodeFragment rum, was die Statusänderungen von Services überwacht.
Das komplett in eine Klasse gegossen würde definitiv Sinn machen.

Für alle Hardcore Fans können die Funktionen auch als Class Functions zusätzlich verfügbar gemacht werden.

Delphi-Quellcode:

ServiceControl := TServiceControl.Create( 'MeinService', 'DerComputer' );
ServiceControl.OnStart := ServiceStart;
ServiceControl.Start;

TServiceControl.Start( 'DeinService', 'DeinComputer' );