Problem mit ExtractAssociatedIcon

[delphinub23]

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