[Fhdensity]

Есть вот такая муть. Выбор каталога.
Все прекрасно кроме того, что немогу задать начальный каталог.
Программирую очень мало. Инет изучил но все вогруг да около.
Доработайте пожалуйста мой исходничек. Начальный каталог например
D:\TMP;

Код:

 FillChar( BrowseInfo, SizeOf( TBrowseInfo ), #0 );
   BrowseInfo.hwndOwner := FMain.Handle;
   BrowseInfo.pszDisplayName :=  DisplayName;
   TitleName := 'Выбери каталог.';
   BrowseInfo.lpszTitle := PChar( TitleName );
   BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
   lpItemID := SHBrowseForFolder( BrowseInfo );
  if lpItemId <> nil then
   begin
     SHGetPathFromIDList( lpItemID, TempPath );
     PathD := TempPath;
     ShowMessage(PathD);    Показываем путь который выбрали.
     GlobalFreePtr( lpItemID );
   end;

Admin: Используем теги для оформления кода!

[jump]

помойму так:
SetCurrentDir('c://..')

[Fhdensity]

Не прокатывает. Там все намного сложнее.

[Fhdensity]

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

[Gad99]

Товарисч Jump правильно говорит.
Оператор SetCurrentDir('D:\TMP'); \\установит каталог TMP на диске D как текущий и все операции ввода вывода с файловой системой без указания пути будут проводится в этом каталоге.
Что бы проверить используй функцию Label1.Caption := GetCurrentDir;

[lmikle]

Во первых, можно посмотреть в ShellControls реализации дерева каталогов (можно и свою форму для этого написать.
Во вторых, например, я нашел компонент, который дает теже возможности, как и BrowseForFolder плюс еще кучу всяких вкусностей, в т.ч. и установку начального каталога.

Если я правильно понял в чем проблема.

[Fhdensity]

Сообщение от lmikle

Во первых, можно посмотреть в ShellControls реализации дерева каталогов (можно и свою форму для этого написать.
Во вторых, например, я нашел компонент, который дает теже возможности, как и BrowseForFolder плюс еще кучу всяких вкусностей, в т.ч. и установку начального каталога.

Если я правильно понял в чем проблема.

Правильно. А где нашел??
Может сюда выложешь???

[lmikle]

Нашел на Тори.
Attached.

[Fhdensity]

Все отлично только еще маленькая просьба подсказать как этим пользоваться.
Потыкал и ничего не понял.
Допер только до
If FileBrowser1.execute Then


пробовал переменную присваивать add : String;
add := Filebrowser.GetNamePath;
add := Filebrowser.SelectedDirectory;
add := FileBrowser.GetNamePath;

В add ничего не записывается после выбора каталога.

[lmikle]

Типа так:

Код:

dlgBrowse.Directory := InitDir;
If dlgBrowse.Execute Then
  ShowMessage('User select ' + dlgBrowse.Directory + ' folder');

[Fhdensity]

Ура ура ура!!! Все получилось! Огромное спасибо!
Разобрался.