Диалог выбора директории

← →
П7 (2004-10-22 10:20) [0]

Уважаемые Мастера!
Сейчас я использую вот такой код:
function ForderDialog( hwnd : HWND; path : string ) : string; var TitleName : string; lpItemID : PItemIDList; BrowseInfo : TBrowseInfo; DisplayName : array[0..MAX_PATH] of Char; TempPath : array[0..MAX_PATH] of Char; begin Result := path; FillChar( BrowseInfo, SizeOf( TBrowseInfo ), #0 ); BrowseInfo.hwndOwner := hwnd; BrowseInfo.pszDisplayName := @DisplayName; TitleName := "Please specify a directory"; BrowseInfo.lpszTitle := PChar( TitleName ); BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS; lpItemID := SHBrowseForFolder( BrowseInfo ); if lpItemId <> nil then begin SHGetPathFromIDList( lpItemID, TempPath ); Result := TempPath; GlobalFreePtr( lpItemID ); end; end;
path : string - вписан на будущее. Нужно чтбы директория автоматически выбиралась, относительно пути в path. Как это сделать?

← →
Pentium133 © (2004-10-22 10:33) [1]

Используй SelectDirectory и не парся.

← →
П7 (2004-10-22 10:36) [2]

> Pentium133 © (22.10.04 10:33) [1]

Это что? В какой версии Дельфи? В каком модуле? У меня такой функции нет...

← →
Pentium133 © (2004-10-22 10:40) [3]

unit FileCtrl;

function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload; function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;

← →
П7 (2004-10-22 10:46) [4]

Ну и ничего хорошего я не увидел. Мне нужно чтобы был авто-выбор директории с сохранением возможности выбрать директории более высокого уровня по дереву. Там я этого не обнаружил, может я ни туда смотрю?

← →
Pentium133 © (2004-10-22 10:48) [5]

Первй параметр - заголовок, второй у меня "", третий - начальная папка.
Что надо еще?

> П7

не туда смотришь ,все там есть
используй первый оверлоад из приведенных пентиумом133

← →
П7 (2004-10-22 10:57) [7]

Спасибо, то что надо!!! (:

Диалог выбора директории Найти похожие ветки