Priorität und Pfad von Diensten ermitteln

[Codewalker]

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 ...