Annahme: Du hast ICO-Dateien. ImageList die Systemicon zuordnen:
Delphi-Quellcode:
SysIL := SHGetFileInfo('', 0, FileInfo, SizeOf(FileInfo), SHGFI_SYSICONINDEX OR SHGFI_SMALLICON );
ImageListe.Handle := SysIL;
Und Index für eine bestimmte ICO-Datei ermitteln
Delphi-Quellcode:
var
FileInfo : TSHFileInfo;
SysIL : UInt;
...
SysIL := SHGetFileInfo(PChar( FileName ),0,FileInfo,SizeOf(TSHFileInfo),SHGFI_SYSIconIndex OR SHGFI_SMALLICON );
if SysIL <> 0 then Result := FileInfo.IIcon;