moin,
mit dieser Funktion erhälst du das
Handle kleiner Icons.
Dann könntest du über Icon.Handle darauf zugreifen oder gleich in eine ImageList kopieren.
Delphi-Quellcode:
uses ShellAPI;
function GetFileIcon(const FileName: String): Cardinal;
var FileInfo: TSHFileInfo;
begin
if SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(FileInfo),
SHGFI_SMALLICON or SHGFI_OPENICON or SHGFI_ICON or SHGFI_SYSICONINDEX) <> 0 then
Result := FileInfo.hIcon else
Result := 0;
end;