диалоговое окно для выбора папок

[Marvin]

привет всем!
вномание, вопрос: как создать диалоговое окно, типа как для выбора файлов, но только, что бы выбирать не файлы а папки??

заранее благодарю

[Zor]

функция WinApi SHBrowseForFolder()

Для начинающих: ищете и качаете книгу: Рейсдорф К., Хендерсон К. "Borland C++ Builder. Освой самостоятельно" (~50mb)
Через неделю-две будете летать.

[Marvin]

функция WinApi SHBrowseForFolder()

Для начинающих: ищете и качаете книгу: Рейсдорф К., Хендерсон К. "Borland C++ Builder. Освой самостоятельно" (~50mb)
Через неделю-две будете летать.

я же не visual c++ пишу, а как работать с API в борланде - незнаю, можно поподробнее.
PS. книгу скачать не могу - у меня инет диалаповый = 5кб/с

[oxotnik]

Код:

#include
...

AnsiString Directory;
SelectDirectory("Select directory",WideString(""),Directory);

ЗЫ:

книгу скачать не могу - у меня инет диалаповый = 5кб/с

тяжелое децтво - 8-ми битные игрушки

[Marvin]

Код:

#include
...

AnsiString Directory;
SelectDirectory("Select directory",WideString(""),Directory);

благодарю!

[moskk]

Код

AnsiString Directory;
SelectDirectory("Select directory",WideString(""),Directory);

а как сделать так же, только с кнопочкой "Создать папку"?

[Zor]

Только на WinApi. Ну или свой диалог сделать - сложность одинаковая.

[Yurkins]

Код

#define NO_WIN32_LEAN_AND_MEAN
// ...........................
#include "shlobj.h"
// ...........................
bool SelectDirectory(const AnsiString ACaption, const WideString ARoot, AnsiString &ADirectory)
{
  char *Buffer = new char[MAX_PATH];
  try
  {
    ITEMIDLIST *RootItemIDList = NULL;
    IShellFolder *IDesktopFolder;
    if (ARoot != WideString(""))
    {
      SHGetDesktopFolder(&IDesktopFolder);
      IDesktopFolder->ParseDisplayName(0, NULL,
        POleStr(ARoot), NULL, &RootItemIDList, NULL);
    }
 
    BROWSEINFO bi;
    bi.hwndOwner = 0;
    bi.pidlRoot = RootItemIDList;
    bi.lpszTitle = ACaption.c_str();
    bi.ulFlags = BIF_NEWDIALOGSTYLE|BIF_EDITBOX;
    bi.lpfn = NULL;
    bi.lParam = 0;
    bi.pszDisplayName = Buffer;
 
    LPITEMIDLIST pidlBrowse = SHBrowseForFolder(&bi);
    if (pidlBrowse != NULL)
    {
      if (SHGetPathFromIDList(pidlBrowse, Buffer))
        ADirectory = Buffer;
    }
  }
  __finally
  {
    delete [] Buffer;
    return DirectoryExists(ADirectory);
  }
}

и пример

Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString dir;
 if (SelectDirectory("Select directory:", "", dir))
    Edit1->Text = dir;
}