Диалог "Выбор папки"

Тема в разделе "Borland C++ Builder & Kylix", создана пользователем artsb, 26 ноя 2007.

  1. artsb

    artsb Гость

    Подскажите как открыть диалог выбора папки. Не TOpenDialog, а там маленькое окошко с деревом каталагов, как у винампа(рисунок). Желательно, чтобы можно было создавать новую папку с помощью него. Ну и расскажите плиз как с ним работать.
    Среди стандартных не нашёл (может плохо искал ).
    Спасибо.
    open_folder.JPG
     
  2. artsb

    artsb Гость

    sax_ol можешь объяснить, что это значит.
     
  3. zubr

    zubr Гость

    Пользуй функцию SHBrowseForFolder (см. MSDN, там и пример есть). В дополнение пример на Delphi (переведешь сам):
    Код (Text):
    procedure TForm1.Button2Click(Sender: TObject);
    var
    TitleName : string;
    lpItemID : PItemIDList;
    BrowseInfo : TBrowseInfo;
    DisplayName : array[0..MAX_PATH] of char;
    TempPath : array[0..MAX_PATH] of char;
    begin
    FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
    BrowseInfo.hwndOwner := Form1.Handle;
    BrowseInfo.pszDisplayName := @DisplayName;
    TitleName := 'Please specify a directory';
    BrowseInfo.lpszTitle := PChar(TitleName);
    BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
    lpItemID := SHBrowseForFolder(BrowseInfo);
    if lpItemId <> nil then
    begin
    SHGetPathFromIDList(lpItemID, TempPath);
    ShowMessage(TempPath);
    GlobalFreePtr(lpItemID);
    end;
    end;
     
Загрузка...
Похожие Темы - Диалог Выбор папки
  1. morpheus
    Ответов:
    0
    Просмотров:
    4.729
  2. NickProstoNick
    Ответов:
    11
    Просмотров:
    2.743
  3. NickProstoNick
    Ответов:
    3
    Просмотров:
    2.418
  4. alexas1
    Ответов:
    0
    Просмотров:
    506
  5. motogarri
    Ответов:
    7
    Просмотров:
    904

Поделиться этой страницей