Текущий архив: 2005.02.06;
Скачать: 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 вся ветка
Текущий архив: 2005.02.06;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.024 c
