Иконки Builder

    WIN32_FIND_DATA FindFileData;
    HANDLE hFind;
    TListItem *item;
    UnicodeString asPath, asPath1;
    AnsiString asd;
 
    asPath1 = DirectoryListBox1->GetItemPath(DirectoryListBox1->ItemIndex) + "\\";
    asd = "";
    asd = asPath1 + "*.exe";
    hFind = FindFirstFileA(asd.c_str(), &FindFileData);
    while (FindNextFile(hFind, &FindFileData)!= 0)
    {
        TIcon *ico = new TIcon();
        item = ListView1->Items->Add();
        item->Caption = FindFileData.cFileName;
        asPath = asPath1 + FindFileData.cFileName;
        ico->Handle=ExtractIconW(HInstance, asPath.w_str(), 0);
        item->ImageIndex = ImageList1->AddIcon(ico);
        delete ico;
    }
    FindClose(hFind);

WORD i=0;
String AssPath = IconPath;
Icon->Handle= ExtractAssociatedIcon(Application->Handle,AssPath.c_str(),&i); // ф-ция  меняет AssPath

//-------------Получение пути к .exe из .lnk-----------------------------------
String Link(String PathLink)
 {
   PathLink= PathLink.Trim();
 
   IShellLink *Link;
   char PathExe[255];
   _WIN32_FIND_DATAA pfd;
   DWord fFlags;
   IPersistFile *ppf;
 
   CoInitialize(NULL);
   CoCreateInstance(CLSID_ShellLink, NULL,
           CLSCTX_INPROC_SERVER, IID_IShellLink, (void **)&Link);
   Link->QueryInterface(IID_IPersistFile, (void**)&ppf);
 
   if (ppf->Load(PathLink.w_str(), true)== S_OK)
              Link->GetPath(PathExe, 256, &pfd, fFlags);
   else return PathLink;
 
   return String(PathExe);
 }