Форум программистов [Powered by Invision Power Board]

Код

void __fastcall TfrmMain::vAssotiativeIconToXSBtn(TSpeedButton *pSBTN, const AnsiString &casFlePath) {
   //-------------------------------------
    //загружаем иконку файла exe-файла в pImageList
    TImageList *pImageList = new TImageList(NULL);

    //-------------------------------------
    //иконка
    TSHFileInfo sfInfo;
    ZeroMemory(&sfInfo, sizeof(sfInfo));
    DWORD dwImageHandle = SHGetFileInfo(casFlePath.c_str(),
                                        0,
                                        &sfInfo,
                                        sizeof(sfInfo),
                                        SHGFI_SYSICONINDEX | SHGFI_ICON | SHGFI_SMALLICON);  //SHGFI_SMALLICON - 16x16

    if (dwImageHandle != 0) {
        pImageList->Handle      = dwImageHandle;
        pImageList->ShareImages = true;
    }
                                              
    TIcon *pIcon = new TIcon();
    pIcon->Handle      = sfInfo.hIcon;      //<<<<<<<<<<
    pIcon->Transparent = true;

    int iIconIndex = pImageList->AddIcon(pIcon);

    //-------------------------------------
    //иконка в exe
    Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
    pImageList->GetBitmap(iIconIndex, pBitmap);

    pSBTN->Glyph   = pBitmap;

    delete pIcon;      pIcon      = NULL;
    delete pBitmap;    pBitmap    = NULL;
    delete pImageList; pImageList = NULL;
}