создать SelectDirectory

[Sasha]

Ребята подскажите по такому вопросу как можно создать вот такой вот SelectDirectory (см.скриншот). Работаю в RAD XE4
Заранее благодарен за ответ

[d7d1cd]

Добавь кнопку и поле ввода Edit1. При нажатии выполни этот код:

Код

 BROWSEINFO info;
 TCHAR      Path[MAX_PATH + 1] = {0};
 
 ZeroMemory(&info, sizeof(info));
 info.hwndOwner    = Handle;
 info.lpszTitle    = STR[0].w_str();
 info.ulFlags      = BIF_RETURNONLYFSDIRS | BIF_NEWDIALOGSTYLE;
 
 LPITEMIDLIST Item = SHBrowseForFolder(&info);
 if(Item)
  {
   SHGetPathFromIDList(Item, Path);
   Edit1->Text     = String(Path);
  }

[S0mbre]

А чем не устраивает SelectDirectory?

[POV]

А чем не устраивает SelectDirectory?

Хы, этот вариант причем является первой же строчкой яндекса. Похоже поиском уже людям настолько лень, что не могут даже попытаться.
http://yandex.ru/yandsearch?clid=9582&text=SelectDirectory

[Sasha]

А чем не устраивает SelectDirectory?

Хы, этот вариант причем является первой же строчкой яндекса. Похоже поиском уже людям настолько лень, что не могут даже попытаться.
http://yandex.ru/yandsearch?clid=9582&text=SelectDirectory

Не устраивает потому как там есть выбор файлов, а мне нужно только каталогов на скриншоте я показал какое именно окно должно быть

[Sasha]

А чем не устраивает SelectDirectory?

Вылетает ошибка
[bcc32 Error] Unit1.cpp(24): E2451 Undefined symbol 'STR'

[Sasha]

Хы, этот вариант причем является первой же строчкой яндекса. Похоже поиском уже людям настолько лень, что не могут даже попытаться.
http://yandex.ru/yandsearch?clid=9582&text=SelectDirectory

Не лень пользовался я поиском просто везде попадались не те SelectDirectory, которые надо

[d7d1cd]

Как я понял, мой вариант даже не рассматривался?

[Sasha]

Как я понял, мой вариант даже не рассматривался?

Рассматривался, просто я не в том посте написал вылетает ошибка

[bcc32 Error] Unit1.cpp(24): E2451 Undefined symbol 'STR'

[d7d1cd]

Рассматривался, просто я не в том посте написал вылетает ошибка
[bcc32 Error] Unit1.cpp(24): E2451 Undefined symbol 'STR'

Из имени свойства lpszTitle можно понять, что это заголовок показываемого окна. STR[0] - это элемент массива строк в моей программе. Замени эту строку например на такую:

Код

info.lpszTitle = "Выберите папку";