[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: Используем теги для оформления кода!