Скачать: CL | DM;

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

← →
П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]

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

---

← →
Гаврила ©   (2004-10-22 10:49) [6]

>  П7


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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c