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

Вниз

Как выбрать каталог без файла с помощью OpenDialog?   Найти похожие ветки 

← →
XXX2   (2003-03-04 18:55) [0]

Мне нужен диалог, который бы возвращал просто выбранный в нем каталог. Пробую использовать OpenDialog, а он требует обязательного выбора файла. Как быть подскажите.

---

← →
Roma ©   (2003-03-04 19:09) [1]

Использовать ShlObj.SHBrowseForFolder...

---

← →
XXX2   (2003-03-05 10:55) [2]

Как им пользоваться?

---

← →
Jel ©   (2003-03-05 11:00) [3]

unit SelDir;

interface

function SelectDirectory(titlename : string; Handle : integer) : string;

implementation

uses ShellAPI, ShlObj;

const
MAX_PATH = 256;

function SelectDirectory(titlename : string; Handle : integer) : string;
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := Handle;
BrowseInfo.pszDisplayName := @DisplayName;
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
SelectDirectory := TempPath;
end else SelectDirectory := "";
end;

end.



---

← →
XXX2   (2003-03-05 11:25) [4]

Спасибо

---

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

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

Наверх

Память: 0.47 MB
Время: 0.013 c