Entwickler-Ecke

Sonstiges (Delphi) - Herausfinden ob bestimmter Service läuft...


FriFra - Do 27.06.02 13:51
Titel: Herausfinden ob bestimmter Service läuft...
Ich will herausfinden ob ein bestimmter Service läuft. Das muss ich aber über den Servicename bzw. Displayname machen, eine Suche nach einer laufenden exe ist für meine Zwecke nicht brauchbar...


DieHardMan - Do 27.06.02 19:53

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
 
function ServiceGetStatus(sMachine, sService: string ): DWord;
var
  schm, schs: SC_Handle;
  ss: TServiceStatus;
  dwStat: DWord;
begin
  dwStat := 0;
  schm := OpenSCManager(PChar(sMachine), Nil, SC_MANAGER_CONNECT);
  if(schm > 0)then
  begin
    schs := OpenService(schm, PChar(sService), SERVICE_QUERY_STATUS);
    if(schs > 0)then
    begin
      if(QueryServiceStatus(schs, ss))then
        dwStat := ss.dwCurrentState;
      CloseServiceHandle(schs);
    end;
    CloseServiceHandle(schm);
  end;
  Result := dwStat;
end;

function ServiceRunning(sMachine,sService: string ): boolean;
begin
  Result := SERVICE_RUNNING = ServiceGetStatus(sMachine, sService );
end;


FriFra - Fr 28.06.02 08:27
Danke!


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!