обзор папок

[Черничный]

Как вызвать окно "Обзор папок" и получить выбранный путь? А так же обработать если каталог не был выбран?

[Kostia]

Есть такой компонент во вкладке Samples ShellTreeView.

узнать путь выбранной папки

procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
 form1.Caption:= ShellTreeView1.Path;
end;

А так же обработать если каталог не был выбран? Такого здесь быть не может.

[Черничный]

мне через opendialog как то надо

[Terran]

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute; // вызвать окно для обзора папок
edit1.Text:=OpenDialog1.FileName; // получить выбранный путь
end;

[Черничный]

так это выбран фаил! а надо папку!

[eoln]

Зачем OpenDialog? Как там различить действия выбрать папку или открыть?
Нужно так:

if (SelectDirectory('Выберите папку...','',st))

В st возвращается папка

[Черничный]

кто нибудь видел вообще это окно? "Обзор папок" Вот такое мне и надо

[eoln]

if (SelectDirectory('Выберите папку...','',st))

Перед тем как возмущаться, проверять надо то что посоветовали. Эт как раз и есть обзор папок

мне через opendialog как то надо

Этот компонент не используется в данном случае

uses FileCtrl

[Черничный]

SelectDirectory не распознает delphi

[eoln]

В раздел описаний добавь uses FileCtrl