SHGetFileInfo benutzen um verknüpftes Datei-Icon anzuzeigen?

[SirThornberry]

du hast ne Zeile vergessen in deinem Create

Delphi-Quellcode:

ImageList3.Handle := SHGetFileInfo('', 0, FI, SizeOf(FI) ,
                      SHGFI_SYSICONINDEX or SHGFI_SMALLICON );
if ImageList3.Handle <> 0 then
   ImageList3.ShareImages := True;