void __fastcall TForm1::FormShow(TObject *Sender)
{
    //MessageBox(NULL, "siral", "notify", MB_OK);
    char pTmp[256];

    GetLogicalDriveStrings(256 , pTmp);

    {
        SHFILEINFO shFileInfo;
        ZeroMemory(&shFileInfo , sizeof(SHFILEINFO));
        m_himl =(HIMAGELIST)SHGetFileInfo("", NULL,&shFileInfo,sizeof(shFileInfo), SHGFI_SMALLICON | SHGFI_SYSICONINDEX);
        TreeView_SetImageList(TreeView1->Handle, m_himl, TVSIL_NORMAL);
        //T_IMGLIST_TREEVIEW->AddImages(himl);
    }

}

  SHFILEINFO shFileInfo;
    ZeroMemory(&shFileInfo , sizeof(SHFILEINFO));
    HIMAGELIST himl =(HIMAGELIST)SHGetFileInfo(a.c_str(), NULL,&shFileInfo,sizeof(shFileInfo), SHGFI_SYSICONINDEX);


    TTreeNode* pNode;
    pNode = TreeView1->Items->Add(NULL, a.c_str());
    pNode->ImageIndex =shFileInfo.iIcon;
    pNode->SelectedIndex =shFileInfo.iIcon;