Скачать: CL | DM;

OpenDialog может осуществлять выбор папки, а не файла?   Найти похожие ветки 

← →
HF-Trade ©   (2005-01-25 01:38) [0]

Народ как мне осуществить выбор папки по типу - DirectoryListBox
с помощью TOpenDialog или он ентого не делает?
Вот в винде  при открытии поиска файлов и папок в самом низу есть Browse - есть ли аналог этого окна в дельфи?

---

← →
GanibalLector ©   (2005-01-25 01:44) [1]

function PfBrowseDialog (const Title: string; const Flag,csidl: 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);
 SHGetSpecialFolderLocation
(MainWnd,csidl,BrowseInfo.pidlRoot);
 with BrowseInfo do begin
   hwndOwner := MainWnd;
   pszDisplayName := @DisplayName;
   lpszTitle := PChar(Title);
   ulFlags := Flag;
 end;
 lpItemID := SHBrowseForFolder(BrowseInfo);
 if lpItemId <> nil then begin
   SHGetPathFromIDList(lpItemID, TempPath);
   Result := TempPath;
   GlobalFreePtr(lpItemID);
 end;
end;


---

← →
GanibalLector ©   (2005-01-25 01:49) [2]

uses shlobj;
...
Caption:=PfBrowseDialog("",
BIF_STATUSTEXT,CSIDL_DESKTOP);

P.S.Ничего,что на АПИ?

---

← →
GanibalLector ©   (2005-01-25 02:03) [3]

2 GanibalLector ©   (25.01.05 01:49) [2]
Кстати,можно что-нибудь написать

Caption:=PfBrowseDialog("hello_vasya",
BIF_STATUSTEXT,CSIDL_DESKTOP);

---

← →
HF-Trade ©   (2005-01-25 02:05) [4]

ёмое ;_))
MainWnd - что это за параметр? Основное окно?
Не понимает.

---

← →
GanibalLector ©   (2005-01-25 02:07) [5]

Application.Handle поможет ;)

---

← →
HF-Trade ©   (2005-01-25 02:14) [6]

Ссссэнькссс... ;_)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c