Icon aus fremdem Programm laden

[_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));