Быстрое извлечение иконок для файлов в папке

void TMainForm::AddFiles(UnicodeString DirPath, UnicodeString FileMask)
{ int i=0;
  TSearchRec sr;
  int res;
  TPath tpath;
  TDateTime DateTime;
  UnicodeString AttrStr;
  SHFILEINFO shFileInfo;
  memset(&shFileInfo,0,sizeof(shFileInfo));
  UnicodeString FullPath;
 
  ListView->Items->BeginUpdate();
  ListView->Items->Clear();
  res=FindFirst(DirPath+FileMask,Attributes,sr);
  if (res==0)
  { do
    { if (sr.Name==".") { continue; }
      ListView->Items->Add();
      if ((sr.Attr & faDirectory) == 0) // this is file
      { FullPath=DirPath+sr.Name;
                SHGetFileInfo(FullPath.t_str(), 0, &shFileInfo,
                 sizeof(shFileInfo), SHGFI_SMALLICON | SHGFI_SYSICONINDEX);
               ListView->Items->Item[i]->ImageIndex=shFileInfo.iIcon;
             }
      else // this is dir
      { ListView->Items->Item[i]->Caption=sr.Name;
                if (sr.Name=="..") { ListView->Items->Item[i]->ImageIndex=5; }
                    else { ListView->Items->Item[i]->ImageIndex=1; }
          } // if file or dir
     } while (FindNext(sr)==0);
    FindClose(sr);
  }//if dir not empty
  ListView->Items->EndUpdate();
}

void __fastcall TMainForm::FormCreate(TObject *Sender)
{ SHFILEINFO shFileInfo;
  memset(&shFileInfo,0,sizeof(shFileInfo));
  LargeIconList->Handle=0;
  SmallIconList->Handle=0;
  UnicodeString UtoW="";
 
  Dir="d:\\temp\\";
  Mask="*.*";
  Attributes = faAnyFile;
 
  LargeIconList->Handle=SHGetFileInfo(UtoW.t_str(),0,&shFileInfo,sizeof(shFileInfo),
             SHGFI_SYSICONINDEX | SHGFI_LARGEICON);
  if (LargeIconList->Handle==NULL)
  { ShowMessage("Big icons are not available");
     exit(-1);
  }
 
  SmallIconList->Handle=SHGetFileInfo(UtoW.t_str(),0,&shFileInfo,sizeof(shFileInfo),
             SHGFI_SYSICONINDEX | SHGFI_SMALLICON;
  if (SmallIconList->Handle==NULL)
  { ShowMessage("Small icons are not available");
     exit(-1);
  }
}

Icon->Handle =  ExtractAssociatedIcon( /*...*/ );