Hallo zusammen.
Wie kann ich die Priorität und den Pfad eines Dienstes ermitteln. Über GetPriorityClass kann ich das schon von Anwendungen, jedoch liefert OpenProcess als
Handle immer 0 wenn es ein Dienst ist.
Delphi-Quellcode:
function GetProcPriority(PID: DWord): TProcPriority;
var
hProcess: THandle;
Priority: Cardinal;
begin
hProcess := OpenProcess(PROCESS_SET_INFORMATION, False, PID);
If hProcess = 0
then begin
Result:=ppService;
Exit;
end;
Priority := GetPriorityClass(hProcess);
case Priority of
$00000040: Result := ppIdle;
$00004000: Result := ppLow;
$00000020: Result := ppNormal;
$00008000: Result := ppHigher;
$00000080: Result := ppHighest;
$00000100: Result := ppRealtime;
else
Assert(False, 'Unknown Value for priority');
end;
CloseHandle(hProcess);
end;
Im Moment fange ich das einfach als Wert ppService ab. Da jedoch der Taskmanager und auch der TuneUp Process Manager (der ja auch in Delphi programmiert wurde) einen Wert ermitteln können, muss das ja gehen.
Das zweite ist, dass ich dann auch noch gerne den Pfad zur EXE/
DLL - Datei des Services ermitteln möchte (am besten mit aufgerufenen Parametern). Bei Anwendungen funktioniert dieser Code ganz gut:
Delphi-Quellcode:
function GetExecutableFromPID(dwProcessID: DWord): String;
var
FSnapshotHandle: THandle;
FModuleEntry32: TModuleEntry32;
begin
Result := '';
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, dwProcessID);
FModuleEntry32.dwSize := Sizeof(FModuleEntry32);
Module32First(FSnapshotHandle, FModuleEntry32);
if FileExists(FModuleEntry32.szExePath) = True then
Result := FModuleEntry32.szExePath
else
Result := '';
CloseHandle(FSnapshotHandle);
end;
end;
Bei Diensten erhalte ich aber nur Speichermüll, so dass ich das ganze mit FileExists abfangen muss. Wie kann ich das von Diensten ermitteln (Der TuneUp ProcessManager ermittelt sogar noch eine Beschreibung. Wie auch immer...
). Bin für jeden Tipp dankbar ...