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 - что это за параметр? Основное окно?
Не понимает.

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

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

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