Диалог для открытия каталога

#define NO_WIN32_LEAN_AND_MEAN

#include "ShlObj.hpp"

::BROWSEINFO    info;
char szDir[MAX_PATH], szDisplayName[MAX_PATH];
LPITEMIDLIST  pidl;
LPMALLOC      pShellMalloc;
 
if(SHGetMalloc(&pShellMalloc) == NO_ERROR) {
  memset(&info, 0x00,sizeof(info));
  info.hwndOwner = Handle;                 // Owner window
  info.pidlRoot  = 0;                      // root folder
  info.pszDisplayName = szDisplayName;     // return display name
  info.lpszTitle = "Browse Title";         // label caption
  info.ulFlags   = BIF_RETURNONLYFSDIRS;   // config flags
  info.lpfn = 0;                           // callback function
 
  // Dialog calling...
  pidl = SHBrowseForFolder(&info);
 
  if(pidl) {
    if(SHGetPathFromIDList(pidl, szDir)) {
        ShowMessage(szDir);       // directory path
    }
 
    ShowMessage(info.pszDisplayName);    // display name
 
    pShellMalloc->Free(pidl);
  }
  pShellMalloc->Release();
}

info.lpfn = 0;                           // callback function

info.lpfn = BrowseProc;                           // callback function

int __stdcall BrowseProc(HWND hwnd,UINT uMsg, LPARAM lParam, LPARAM lpData )
{
  char szDir[MAX_PATH];
 
  switch(uMsg) {
    case BFFM_INITIALIZED:
      SendMessage(hwnd, BFFM_SETSTATUSTEXT,0, (LPARAM)"Greetings");
      SendMessage(hwnd, BFFM_SETSELECTION, TRUE, (LPARAM)"C:\\");
      break;
    case BFFM_SELCHANGED:
      if(SHGetPathFromIDList((LPITEMIDLIST)lParam, szDir))
        ShowMessage(szDir);
      break;
  }
 
  return 0;
}