Выбор директории

← →
baataar (2002-07-29 19:38) [0]

function BrowseDialog(const Title: string; const Flag: integer): string;
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result:="";
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
with BrowseInfo do begin
hwndOwner := Application.Handle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := IncludeTrailingBackslash(TempPath);
GlobalFreePtr(lpItemID);
end;
end;

Утянул где-то функцию, но как мне сделать так чтоб можно было задавать директорию для выбора.
Допустим юзер один раз выбрал, и второй раз выбирая подставлялась его директория

← →
Jeer © (2002-07-29 22:32) [1]

Кто-ж кроме тебя ее где-то запомнит. Реестр или ini - на выбор.

← →
battar (2002-07-29 23:17) [2]

это я понял, но куда ее подставить?
В какое свойство?

← →
Geser © (2002-07-30 00:40) [3]

8-0
%-)
Вот он, современный подход к программированию!
То battar : Найдите себе компонент! Наверняка есть.

← →
Dmitry Toropov (2002-07-30 15:11) [4]

2battar

см. SelectDirectory в Help"e, там два варианта этой функции, в одном из них можно указать начальную директорию.
IMHO, SelectDirectory - инкапсулирует системную функицию SHBrowseForFolder

← →
star © (2002-07-31 00:30) [5]

Чем больше я пользуюсь функцией SelectDirectory, тем меньше она мне нравится. Как-то коряво она работает - после указания директории приложение выкидывает под низ всех окон и приходится специально давать Application.BrigToFront. Кроме того, если задать начальную папку, она не дает подняться выше по дереву каталогов - дерево начинается именно с этой начальной папки. Кроме того, она не позволяет создать папку прямо во время выбора. В общем это и моя головная боль.
Хотел сам написать компонент - да лень матушка ...

http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988622138&n=15

Шпасибо !!!

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