[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 плюс еще кучу всяких вкусностей, в т.ч. и установку начального каталога.

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