Guten Tag und Frohe Ostern,
ich programmiere ein kleines Tool, welches unter anderem einen Prozessviewer enthält.
Dieser soll nicht nur die laufenden Prozesse & PID, sondern auch das Icon des jeweiligen Prozesses anzeigen.
Oke, bis hierhin funktioniert alles. Bis auf die korrekte Rückgabe des Icons.
Folgendes Problem stell sich dar:
Es werden nur die korrekten Icons der Prozesse ausgegeben, die im Taskmanager diese Bezeichnung haben: 'PROZESSNAME *32'.
Alle anderen bekommen ein Systemicon zugeordnet.
Aufruf um die Icons zu erhalten:
Delphi-Quellcode:
aIcon := TIcon.Create;
try
Index := 0;
aicon.Handle := ExtractAssociatedIcon(HInstance,
PWideChar(Handler.GetProcessPath(Handler.GetAllRunningProcs.Strings[i])), Index);
lvProcessList.Items[i].ImageIndex := ImageList.AddIcon(aIcon);
finally
aIcon.Free;
end;
Kennt jemand eine Lösung um von allen Prozessen das korrekte Icon zu erhalten?
Danke im Voraus!
MfG - dnub