Icon aus fremdem Programm laden

[atreju2oo0]

Ich würde gerne die Icons die im Explorer vor den Exe'n zu sehen sind in mein Programm laden.
Aber es gibt leider kein

Delphi-Quellcode:

MyIcon.loadfromexe('Antivir.exe');

Ich habe schon gesucht wie ein Irrer aber leider nichts gefunden...
Und bei www.wosit.com nach dem Aufbau von Exen zu suchen und diesen dann zu implementieren wäre mir bedeutend
zu viel Arbeit und würde mich auch überfordern.
Gibt das dafür eine verhältnissmäßig einfache Lösung oder eine Komponente die das macht???

:gruebel:

[_master_]

Delphi-Quellcode:

Function GetIconFromFile(FileName: String; Index: Integer): Ticon;
Begin
Result := TIcon.Create;
Result.Handle := ExtractIcon(HInstance, PCHAR(FileName), Index);
End;

//aufrufen:
ImageList1.AddIcon(GetIconFromFile('C:\WINDOWS\Explorer.exe', 2));

[atreju2oo0]

Vielen Dank... Klappt!