//---------------------------------------------------------------------------
#define NO_WIN32_LEAN_AND_MEAN // 从 Windows 头中排除极少使用的资料
#include <shlobj.h>
#include <vcl.h>


#pragma hdrstop

#include "selectdir.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)


bool CrnBrowserDir(HANDLE hWin, LPSTR lpCaption, LPSTR lpDir, LPSTR lpDispName)
{
    BROWSEINFO bi;
    LPITEMIDLIST pidl;
    LPMALLOC pShellMalloc;
    bool bRet = false;

    if(SHGetMalloc(&pShellMalloc) == NO_ERROR)
    {
        memset(&bi, 0x00, sizeof(bi));
        bi.hwndOwner = hWin; // Owner window
        bi.pidlRoot = 0; // root folder
        bi.pszDisplayName = lpDispName; // return display name
        bi.lpszTitle = lpCaption; // label caption
        bi.ulFlags = BIF_RETURNONLYFSDIRS | BIF_NEWDIALOGSTYLE; // config flags
        bi.lpfn = 0; // callback function

        pidl = SHBrowseForFolder(&bi);
        if(pidl)
        {
            if(SHGetPathFromIDList(pidl, lpDir))
                bRet = true;

            pShellMalloc->Free(pidl);
        }
        pShellMalloc->Release();
    }
    return bRet;
}