Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.07;
Скачать: 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 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
9-1089190934
BladeMaster
2004-07-07 13:02
2004.11.07
BitBlt и прозрачность


4-1096818141
Гость
2004-10-03 19:42
2004.11.07
Как определить в какой CD-rom вставлен диск, если сидюк не 1


1-1098377903
Kolan
2004-10-21 20:58
2004.11.07
ComboBox - Ctl3D


1-1098447124
Wolffgang
2004-10-22 16:12
2004.11.07
Assigned?


14-1097933511
Duys
2004-10-16 17:31
2004.11.07
VB мы Delphi