Как сделать нормальный диалог выбора папки?

/ диалог выбора файла
bool OpenModuleDlg(HWND hwnd, char* modpath, long count, const char* filter) {
    OPENFILENAME ofn;
 
    ZeroMemory(&ofn, sizeof(OPENFILENAME));
    ofn.lStructSize = sizeof(OPENFILENAME);
    ofn.hwndOwner = hwnd;
    ofn.lpstrFile = modpath;
    ofn.nMaxFile = count;
    ofn.lpstrFilter = (filter == NULL ? "Exe\0*.exe\0All Files\0*.*\0" : filter);
    ofn.nFilterIndex = 1;
    ofn.lpstrFileTitle = NULL;
    ofn.nMaxFileTitle = 0;
    ofn.lpstrInitialDir = NULL;
    ofn.Flags = OFN_PATHMUSTEXIST | OFN_FILEMUSTEXIST;
 
    return (GetOpenFileName(&ofn) == TRUE);
}

static int CALLBACK
BrowseCallbackProc (HWND hWnd, UINT uMsg, LPARAM lParam, LPARAM lpData)
{
    TCHAR szPath[_MAX_PATH];
    switch (uMsg) {
    case BFFM_INITIALIZED:
        if (lpData)
            SendMessage(hWnd,BFFM_SETSELECTION,TRUE,lpData);
        break;
    case BFFM_SELCHANGED:
        SHGetPathFromIDList(LPITEMIDLIST(lParam),szPath);
        SendMessage(hWnd, BFFM_SETSTATUSTEXT, NULL, LPARAM(szPath));
        break;
    }
    return 0;
}
 
BOOL GetFolder (LPCTSTR szTitle, LPTSTR szPath, LPCTSTR szRoot, HWND hWndOwner)
{
    if (szPath == NULL)
        return false;
 
    bool result = false;
 
    LPMALLOC pMalloc;
    if (::SHGetMalloc(&pMalloc) == NOERROR) {
        BROWSEINFO bi;
        ::ZeroMemory(&bi,sizeof bi);
        bi.ulFlags   =  BIF_DONTGOBELOWDOMAIN;
 
        // дескриптор окна-владельца диалога
        bi.hwndOwner = hWndOwner;
 
        // добавление заголовка к диалогу
        bi.lpszTitle = szTitle;
 
        // отображение текущего каталога
        bi.lpfn      = BrowseCallbackProc;
        bi.ulFlags  |= BIF_STATUSTEXT;
 
        // установка каталога по умолчанию
        bi.lParam    = LPARAM(szPath);
 
        // установка корневого каталога
        if (szRoot != NULL) {
            IShellFolder *pDF;
            if (SHGetDesktopFolder(&pDF) == NOERROR) {
                LPITEMIDLIST pIdl = NULL;
                ULONG        chEaten;
                ULONG        dwAttributes;
 
                USES_CONVERSION;
                LPOLESTR oleStr = T2OLE(szRoot);
 
                pDF->ParseDisplayName(NULL,NULL,oleStr,&chEaten,&pIdl,&dwAttributes);
                pDF->Release();
 
                bi.pidlRoot = pIdl;
            }
        }
 
        LPITEMIDLIST pidl = ::SHBrowseForFolder(&bi);
        if (pidl != NULL) {
            if (::SHGetPathFromIDList(pidl,szPath))
                Form1->DiscDirectory->Items->Add(szPath);
                Form1->DiscDirectory->Text= szPath;
                result = true;
            pMalloc->Free(pidl);
        }
        if (bi.pidlRoot != NULL)
            //pMalloc->Free(pidl);
        pMalloc->Release();
    }
    return result;
}

LPITEMIDLIST iil;
SHGetSpecialFolderLocation(m_hWnd, CSIDL_NETWORK, &iil);
bi.pidlRoot = iil;

BROWSEINFO    binfo;
 
    char          szDisplayName[MAX_PATH];
    LPITEMIDLIST  pidl;
    LPMALLOC      pShellMalloc;
 
    if(SHGetMalloc(&pShellMalloc) == NO_ERROR)
    {
        SHGetSpecialFolderLocation(NULL,CSIDL_NETWORK,&pidl);//здесь указиваете тип спец. папки вот здесь можно узнать [url]http://samoucka.ru/document28006.html[/url]
        memset(&binfo, 0x00, sizeof(binfo));
        binfo.hwndOwner = Form1->Handle;
        binfo.pidlRoot = pidl;
        binfo.lpszTitle = "Огляд мережевих каталогів";
        binfo.ulFlags   = BIF_RETURNONLYFSDIRS|BIF_STATUSTEXT;
        binfo.lpfn      = NULL;
        binfo.lParam = 0;
        binfo.iImage = 0;
 
        pidl = SHBrowseForFolder(&binfo);
 
        if(pidl)
        {
            if(SHGetPathFromIDList(pidl, Directory))
            {
                Form1->DiscDirectory->Items->Add(Directory);
                Form1->DiscDirectory->Text= Directory;
 
            }
            pShellMalloc->Free(pidl);
            pShellMalloc->Release();
        }
    }