Get Service State

[DaSchwoa]

Hallo Leute
Ich habe jetzt einige Services Programmiert und möchte in einem VLC Programm diese Starten und Stoppen bzw überprüfen ob sie gestartet oder gestoppt sind. Ich habe viele Seiten durchsucht und auch bei hier einige Threads gelesen.
Um zu überprüfen welchen Status ein Service hat habe ich mich für diese Lösung entschieden:

Code:

function TFrmManage.ServiceGetStatus(sService: String): Boolean;
var
   SCManager, SCService: THandle;
   ServiceStatus: TServiceStatus;

begin
   Result:= false;
  SCManager := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
  if SCManager = 0 then
  begin
    ShowMessage('Exit 1');
    Exit;
  end;

  try
    SCService := OpenService(SCManager, PChar(sService), SERVICE_START or SERVICE_STOP or SERVICE_QUERY_STATUS);

    if SCService = 0 then
    begin
      ShowMessage('Exit 2');
      Exit;
    end;

    try
      ZeroMemory(@ServiceStatus, SizeOf(ServiceStatus));
      QueryServiceStatus(SCService, ServiceStatus);
      Result:= ServiceStatus.dwCurrentState = SERVICE_RUNNING;
      ShowMessage(BoolToStr(result));
    finally
      CloseServiceHandle(SCService);
    end;

  finally
    CloseServiceHandle(SCManager);
  end;
end;

Jedoch wenn ich den Namen des Services angebe werdich ich bei Exit 2 immer aus der Procedure geworfen, da es das Service nicht kennt.
Als namen habe ich angegeben: Computer\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlS et\Services\MeinSrv

Habe ich einen Falschen Namen angegeben oder ist ein Fehler im Code?

[Dalai]

Die Win32 API Service-Funktionen wollen nur den Namen, nichts weiter. Kurz gesagt: Lass den Registry-Pfad weg.

Grüße
Dalai

[himitsu]

Was hast du denn bei deinem Service als Namen angegeben?
"Nur" den mußt du dann auch verwenden.

CMD: sc query
und da dann siehe SERVICE_NAME (manchmal kann auch der DISPLAY_NAME genutzt werden)

[DaSchwoa]

Danke für die Antworten.
Ich habe es jetzt auch mit dem Service Name versucht. Jedoch falle ich auf der selben Zeile raus :/

Bei SC Query wird mein Dienst nicht angezeigt obwohl er installiert ist. Auch im Registrierungs-Editor ist er aufgelistet wie im Bild unten zu sehen ist:

[Dalai]

Wie wurde der Dienst installiert? Einfach nur Registry-Zweig anlegen klappt in der Regel nicht, weil der ServiceManager dann nichts davon mitbekommt.

Grüße
Dalai

[DaSchwoa]

der dienst wurde mit CMD: MeinDienst.exe /install installiert

[Dalai]

Dann würde ich den Dienst nochmals deinstallieren und wieder installieren. Und danach testen mit

Code:

sc query <dienstname>

Grüße
Dalai