| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Выбор папки [D7, XP]
F@T@L_Err0r © (2007-10-23 09:45:00)Доброго времени суток господа.Скажите пожалуйста как можно вывести диалог выбора папки?
antonn (2007-10-23 23:51:00) [1]подключаемый модуль, вызывает то самое окошко выбора:
http://desksoft.ru/index.php?downloads=files&id=9
Palladin (2007-10-23 12:59:00) [2]ну поискать то сложно что ли самому... все разжуй и в рот положи...
F@T@L_Err0r (2007-10-23 12:57:00) [3]А ZeroMemory ето от какого юнита?У меня undeclareted indefiner...
Palladin (2007-10-23 11:59:00) [4]обшибся чуток
ZeroMemory(@BrowseInfo,sizeof(TBrowseInfo));
apic (2007-10-23 11:57:00) [5]На ZeroMem выдает ошибку. Пробовал ZeroMemory, не соответствие типов выдает!
Palladin (2007-10-23 11:44:00) [6]ShlObj
apic (2007-10-23 11:35:00) [7]PItemIDList с какого юнита?
Palladin (2007-10-23 11:27:00) [8]сытый, значит добрый )
Function vtSelectFolder(Const p_strTitle:String=''):String;
Var
TitleName:String;
lpItemID:PItemIDList;
BrowseInfo:TBrowseInfo;
DisplayName:Array[0..MAX_PATH] of char;
TempPath:Array[0..MAX_PATH] of char;
Begin
ZeroMem(BrowseInfo,sizeof(TBrowseInfo));
BrowseInfo.hwndOwner:= GetActiveWindow;
BrowseInfo.pszDisplayName:=@DisplayName;
If p_strTitle='' Then TitleName:='Выберите папку' Else TitleName:=p_strTitle;
BrowseInfo.lpszTitle:=PChar(TitleName);
BrowseInfo.ulFlags:=BIF_RETURNONLYFSDIRS;
lpItemID:=SHBrowseForFolder(BrowseInfo);
If lpItemId<>nil Then
Begin
SHGetPathFromIDList(lpItemID,TempPath);
Result:=TempPath;
GlobalFreePtr(lpItemID);
End Else Result:='';
end;
наслаждайся
Dennis I. Komarov (2007-10-23 11:25:00) [9]> [20] F@T@L_Err0r © (23.10.07 11:09)
У меня отображаются не только локальные, но и сетевые :)
F@T@L_Err0r (2007-10-23 11:09:00) [10]А можно ли сделать так чтобы отображалися не только локальные папки но и сетевые?
Dennis I. Komarov (2007-10-23 10:53:00) [11]> PS автору : последний параметр должен быть варом.
Это было его домашним заданием.
F@T@L_Err0r (2007-10-23 10:52:00) [12]Спасиба --Получилось!!!
Reindeer Moss Eater (2007-10-23 10:50:00) [13]ЗЫ А ты как собрался получить результат?
Видимо ценной бандеролью.
PS автору : последний параметр должен быть варом.
Dennis I. Komarov (2007-10-23 10:48:00) [14]ЗЫ А ты как собрался получить результат?
Dennis I. Komarov (2007-10-23 10:42:00) [15]> [14] F@T@L_Err0r © (23.10.07 10:37)
Самое первое - это научиться читать справку
F@T@L_Err0r (2007-10-23 10:37:00) [16]ну я еще токо учусь...плиз подскажите как нада!!!
Reindeer Moss Eater (2007-10-23 10:32:00) [17]не. к терапевту
Dennis I. Komarov (2007-10-23 10:32:00) [18]> [11] F@T@L_Err0r © (23.10.07 10:28)
Ну справку внимательно прочитал?
F@T@L_Err0r (2007-10-23 10:28:00) [19]selectdirectory('Select a folder','C:\','C:\'); There is no overloaded version for selectdirectory can be called...
Reindeer Moss Eater (2007-10-23 10:19:00) [20]http://img81.imageshack.us/img81/963/unitgg4.jpg
| |
Страницы: 