Диалог выбирающий не файл, а папку.

[TwiX]

Нашёл только для файлов =\

[Stilet]

SelectDirectory function
Поиском по форуму и в хелпах MSDN и Делфи все написано.

[raxp]

вам нужно SHGetSpecialFolderLocation, для вывода- SHBrowseForFolder

[Rabbit]

Может это поможет.

uses ShellAPI, ShlObj;
...
procedure TForm1.Button1Click(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 := 'Заголовок окна';
  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;

[mihali4]

Бросьте на форму ТShellTreeView и наслаждайтесь.
Вот простенький примерчик:

procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
Label1.Caption:=ShellTreeView1.Selected.Text;
end;

Лэйбл всегда будет вам показывать имя выбранной папки...

[raxp]

...полный код с настройками, лучше в виде функции:

// API диалог -----------------------------------------------------------------
function BrowseCallbackProc(hwnd: HWND; uMsg: UINT; lParam: LPARAM; lpData: LPARAM): Integer; stdcall;
begin
 if (uMsg = BFFM_INITIALIZED) then SendMessage(hwnd, BFFM_SETSELECTION, 1, lpData);
 BrowseCallbackProc:= 0
end;
function api_dir(h: hwnd; title: PChar; strFolder: string): String;
var lpItemID  : PItemIDList;
    path      : array[0..Max_path] of char; //выбранная папка
    BrowseInfo: TBrowseInfo;                //настройки диалога
begin
 FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
 SHGetSpecialFolderLocation(h,csidl_desktop,BrowseInfo.pidlRoot);
 //устанавливаем свойства диалогового окна
 with BrowseInfo do begin
  hwndOwner:= h;     //окно-владелец
  lpszTitle:= title; //заголовок диалога
  //не показываем некоторые системные папки: "Корзина", "Панель управления" и т.д
  ulFlags  := BIF_RETURNONLYFSDIRS+BIF_EDITBOX+BIF_STATUSTEXT;
  lpfn:= @BrowseCallbackProc;
  lParam:= LongInt(PChar(strFolder))
 end;

 //выводим диалог
 lpItemID  := SHBrowseForFolder(BrowseInfo);
 //папка, указанная юзером, существует?
 if lpItemId <> nil then begin
  SHGetPathFromIDList(lpItemID, Path);
  result   := path;
  GlobalFreePtr(lpItemID) //освобождаем ресурсы
 end
end;

...
//вызов
t:= api_dir(handle,'Укажите каталог архивов: *.CU'#10+'для визуализации',fpath_CU);
if t<>'' then fpath_CU:= t;

[FaTaL]

Вот простой примерчик

SelectDirectory ('Выберите папку', 'D:\, C:\', dir, [sdNewFolder, sdNewUI])

где
var
dir : string;

[raxp]

ну тогда уж

SelectDirectory('Выберите папку', 'D:\, C:\', dir)

[uberchel]

Вот специально для вас упростил функцию:

uses FileCtrl;

...
function SelectDir(Title, DefDrive: string): string;
begin
 if SelectDirectory(Title, DefDrive, Result) then Exit;
end;

Использование:
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:= SelectDir('Chose Folder','C:\');
end;

SelectDir('Текст','папка по умолчанию');

[TwiX]

Брр... Ответ был дан в первом же посте =\