Prozesse auflisten mit Icon

[Zacherl]

Hi,
wie bekomme ich anhand der ProcessID Zugriff auf das SmallIcon Handle eines Prozesses?
Ich möchte alle Prozesse auflisten und jeweils das SmallIcon in einer Imagelist speichern.
Mit den Funktionen der Unit TlHelp32 kann man ja alle Prozesse listen und bekommt auch eine PID.

Florian

[Zacherl]

Ich weiß, dass es geht, nur nicht wie ...

[Luckie]

Dazu brauchst du weniger die ProzessID als viel mehr den Pfad: SHGetFileInfo.

[The-X]

bei meinem Taskmanager Klon hab ich mir mit der PID den Pfad zum Prozess geholt und davon dann das Icon extrahiert

[Zacherl]

Zitat:

Dazu brauchst du weniger die ProzessID als viel mehr den Pfad: SHGetFileInfo .

Schon klar.

Zitat:

Zitat von The-X

bei meinem Taskmanager Klon hab ich mir mit der PID den Pfad zum Prozess geholt und davon dann das Icon extrahiert

Wie holt man sich denn dem Pfad anhand der PID?
Wie man das Icon extrahiert weiß ich.

[Luckie]

Steht doch dann in der Struktur drinne.

[Zacherl]

Achso.
Danke

[The-X]

unter XP ist das nur die halbe Wahrheit :stupid:
denn in dem Record von Process32First steht der Pfad zur Exe nicht drin
aber mit GetModuleFilenameEx nem geöffneten ProcessHandle (PROCESS_QUERY_INFORMATION or PROCESS_VM_READ) und Index 0 kommt man dem ganzen näher :mrgreen:

[ErazerZ]

Zitat:

Zitat von The-X

unter XP ist das nur die halbe Wahrheit :stupid:
denn in dem Record von Process32First steht der Pfad zur Exe nicht drin
aber mit GetModuleFilenameEx nem geöffneten ProcessHandle (PROCESS_QUERY_INFORMATION or PROCESS_VM_READ) und Index 0 kommt man dem ganzen näher :mrgreen:

ja GetModuleFilenameEx gibts nur unter WinNT/2000/XP, deswegen benutz lieber Module32First

Delphi-Quellcode:

uses TLHelp32;

procedure TfrmMain.GetModuleList(PID: DWORD);
var
  ME: TModuleEntry32;
  hME: THandle;
  liModule: TListItem;
begin
  hME := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID);
  ME.dwSize := sizeof(TModuleEntry32);
  Module32First(hMe, ME);
  repeat
    liModule := lvModules.Items.Add;
    liModule.Caption := ME.szModule;
    liModule.SubItems.Add(ME.szExePath);
  until (not Module32Next(hMe, ME));
end;