При использовании стандартной функции SHGetFileInfo — ShellAPI в Delphi v.6.0 возникла одна проблема.
При использовании флагов uFlags получаю атрибуты файла, тип файла, размер файла , а вот системные иконки не могу получить. Привожу текст:

Procedure MyDraw;
var fi:TSHFileInfo;
    SmallImage:TImageList;
begin
 SmallImage:=TImageList.Create(nil);
 SmallImage.Handle:=SHGetFileInfo('*.*',0,fi,SizeOf(fi),SHGFI_SMALLICON or 
                                          SHGFI_ICON or SHGFI_SYSICONINDEX);
 SHGetFileInfo('*.txt',0,fi,SizeOf(fi),SHGFI_SMALLICON or 
                                          SHGFI_ICON or SHGFI_SYSICONINDEX);
 SmallImage.Draw(Image1.Canvas,10,10,fi.iIcon);
end;