| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

HF-Trade ©   (2005-01-25 01:38:00) 

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

---

HF-Trade   (2005-01-25 02:14:00) [1]

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

---

GanibalLector   (2005-01-25 02:07:00) [2]

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

---

HF-Trade   (2005-01-25 02:05:00) [3]

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

---

GanibalLector   (2005-01-25 02:03:00) [4]

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

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

---

GanibalLector   (2005-01-25 01:49:00) [5]

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

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

---

GanibalLector   (2005-01-25 01:44:00) [6]

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;


---

Наверх