Главная страница
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.022 c
4-1096373747
AP3AMAC
2004-09-28 16:15
2004.11.07
Как поймать событие ONPRINT ?


3-1097045637
Aser
2004-10-06 10:53
2004.11.07
Таблица не отображается и переключениях TabSheets


4-1096483539
antonioxxx
2004-09-29 22:45
2004.11.07
Доступ к аудиокарте


1-1098407275
Кто---то
2004-10-22 05:07
2004.11.07
А стандартный СпинЭдит с флоатами не работает что ли ? Или


4-1096570172
redlord
2004-09-30 22:49
2004.11.07
блокировка файла