[Delphi] Дiалог выбора папки

london

Не файла, а именно папки, что -то на странице с дiалогами не нашёл такого. Может для этого OpenDialog использовать можно? Подскажите, плиз.

admsec2008

Вообще yandex, google помогают, но так:

function SelectDir(TitleName:string; Path: string; Obj:TForm):string;

var

  lpItemID : PItemIDList;

  BrowseInfo : TBrowseInfo;

  DisplayName : array[0..MAX_PATH] of char;

  TempPath : array[0..MAX_PATH] of char;

begin

  FillChar(BrowseInfo, sizeof(TBrowseInfo #0);

  StrCopy(DisplayName, Pchar(Path;

  BrowseInfo.hwndOwner := Obj.Handle;

  BrowseInfo.pszDisplayName := @DisplayName;

  TitleName := TitleName;

  BrowseInfo.lpszTitle := PChar(TitleName);

  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;

  lpItemID := SHBrowseForFolder(BrowseInfo);

  if lpItemId <> nil then

  begin

    SHGetPathFromIDList(lpItemID, TempPath);

    Result:=TempPath;

    GlobalFreePtr(lpItemID);

  end;

end;

Pavel781

TShellTreeView в виде дерева. Не диалог конечно, но можно кинуть его на формочку и открывать ее.
ShellTreeView.Path дает выбранную папку.