[Delphi] gestartete Dienste ermitteln

[PSi-Tronic]

Hallo Leute,

bin neu hier und das ist mein erster Beitrag - auf diesem Weg möchte ich alle hier grüßen

nun zu meinen Fragen:

wie kann ich in Delphi[7] alle aktuell gestarteten Dienste [Win2K] ermitteln?

habe leider keinen entsprechenden API-Befehl gefunden

im Moment läuft es so, dass ich per CMD-Befehl cmd /c net start > dummy.txt die laufenden Dienste in eine Dummy-Datei schreibe und sie dann auslese - das ist aber echt beschissen !!!

2. Frage

wie kann ich Dienste stoppen und starten?

hat jemand eine bessere Lösung als wieder per cmd-befehl "net start ..." ???

Vielen Dank im voraus

Gruß
PSi

 

[7H3 N4C3R]

Du brauchst OpenSCManager und EnumServiceStatus dafür.

Schau mal hier:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/openscmanager.asp

Der Beispielsource ist zwar in C, aber ich hoffe, das hilft Dir weiter.

Um einen Service zu beenden, brauchst Du auch noch OpenService und ControlService.
Anschließend das CloseServiceHandle nicht vergessen.

 

[Quidoff]

Hi,
ich hab zu dem Thema einen Eintrag in einem DELPHI Forum gefunden. Da ist auch schon der komplette Quellcode. Hab ihn aber im Moment nicht getestet.
Link

Mfg
KoЯn

 

[PSi-Tronic]

Vielen Dank für die Informationen

damit kann ich was anfangen

Danke und Gruß
PSi