Zitat von
SirThornberry:
die suche im Forum nutzen da es andere schon gemacht haben
Ich suche jetzt seit gestern hier rum. Wenn es einen Counter für die Forensuche gäbe, würde man das auch sehen
Bisher habe ich neben dem
WMI Ansatz die ServiceGetStatus Funktion gefunden. Das war dann auch schon alles, der Link zu Michael Puffs EnumServices führte ins Leere, da mußte ich seine Seite erstmal durchforsten. Auch gut, aber nur
Ansi - und nicht das was ich will.
Ich finde hier sehr viel zu Thema "Prüfen, ob Service läuft", aber nicht, ob er
installiert ist.
ServiceGetStatus liefert den Vergleich für:
Delphi-Quellcode:
{*** -1 = Error opening service ***}
{*** 1 = SERVICE_STOPPED ***}
{*** 2 = SERVICE_START_PENDING ***}
{*** 3 = SERVICE_STOP_PENDING ***}
{*** 4 = SERVICE_RUNNING ***}
{*** 5 = SERVICE_CONTINUE_PENDING ***}
{*** 6 = SERVICE_PAUSE_PENDING ***}
{*** 7 = SERVICE_PAUSED ***}
Nun hab ich mir gedacht, ich prüfe einfach auf -1. Wenn er nicht geöffnet werden kann, ist er anscheinend nicht da. Richtig?
Nur der Vergleich auf -1 bzw. <> -1 liefert immer True bzw. False. So sagt es der Compiler...
Bsp:
Delphi-Quellcode:
function ServiceGetStatus(sMachine, sService: PChar): DWORD;
{******************************************}
{*** Parameters: ***}
{*** sService: specifies the name of the service to open
{*** sMachine: specifies the name of the target computer
{*** ***}
{*** Return Values: ***}
{*** -1 = Error opening service ***}
{*** 1 = SERVICE_STOPPED ***}
{*** 2 = SERVICE_START_PENDING ***}
{*** 3 = SERVICE_STOP_PENDING ***}
{*** 4 = SERVICE_RUNNING ***}
{*** 5 = SERVICE_CONTINUE_PENDING ***}
{*** 6 = SERVICE_PAUSE_PENDING ***}
{*** 7 = SERVICE_PAUSED ***}
{******************************************}
var
SCManHandle, SvcHandle: SC_Handle;
SS: TServiceStatus;
dwStat: DWORD;
begin
dwStat := 0;
// Open service manager handle.
SCManHandle := OpenSCManager(sMachine,
nil, SC_MANAGER_CONNECT);
if (SCManHandle > 0)
then
begin
SvcHandle := OpenService(SCManHandle, sService, SERVICE_QUERY_STATUS);
// if Service installed
if (SvcHandle > 0)
then
begin
// SS structure holds the service status (TServiceStatus);
if (QueryServiceStatus(SvcHandle, SS))
then
dwStat := ss.dwCurrentState;
CloseServiceHandle(SvcHandle);
end;
CloseServiceHandle(SCManHandle);
end;
Result := dwStat;
end;
function IsServiceRunning(sMachine, sService: PChar): Boolean;
begin
Result := SERVICE_RUNNING = ServiceGetStatus(sMachine, sService);
end;
function IsServiceInstalled(sMachine, sService: PChar): Boolean;
begin
Result := -1 <> ServiceGetStatus(sMachine, sService);
// genau hier sagt der Compiler liefert immer True bzw. False
end;
Also, bitte nicht sagen: Nutze die Suchfunktion. Das mach ich immer...
Nicht böse gemeint.
Gruß winkel79