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

Вниз

Помогите с OpenDialog   Найти похожие ветки 

← →
_DarkSide   (2003-04-24 14:56) [0]

Люди помогите, есть OpenDialog, там открытие файла, а мне надо чтобы выбор папки был... заранее, спасибо.

---

← →
Dms   (2003-04-24 15:02) [1]


procedure SelectDirectory(Owner : THandle; Dest : string);
var
BInfo : TBrowseInfo;
OutBuf : array [0..4094] of char;
PIDL : PItemIDList;
begin
BInfo.hwndOwner:=Owner;
BInfo.pidlRoot:=nil;
BInfo.pszDisplayName:=OutBuf;
BInfo.lpszTitle:="Выберите директорию";
BInfo.ulFlags:=BIF_RETURNONLYFSDIRS;
BInfo.lpfn:=nil;
BInfo.lParam:=0;
BInfo.iImage:=0;
PIDL:=SHBrowseForFolder(BInfo);
if SHGetPathFromIDList(PIDL, OutBuf) then Dest:=OutBuf;
end;


---

← →
stone ©   (2003-04-24 15:07) [2]

2 Dms (24.04.03 15:02)

SelectDirectory - стандартная функция (Unit FileCtrl)

---

← →
Dms   (2003-04-24 15:11) [3]

там малость не то вываливается
а моя делает стандартный, привычный диалог

---

← →
kres   (2003-04-24 15:17) [4]

В RxLib есть то, что надо.

---

← →
_DarkSide   (2003-04-24 16:27) [5]

Спасибо всем! очень помогли!

---

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

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

Наверх

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