Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];
ВнизВыбор папки Найти похожие ветки
← →
F@T@L_Err0r © (2007-10-23 09:45) [0]Доброго времени суток господа.Скажите пожалуйста как можно вывести диалог выбора папки?
← →
Reindeer Moss Eater © (2007-10-23 09:48) [1]селектдиректори
← →
Palladin © (2007-10-23 09:49) [2]SHBrowseForFolder
← →
MBo © (2007-10-23 09:49) [3]если тупо перевести на английский, то получится SelectDirectory
← →
F@T@L_Err0r © (2007-10-23 09:53) [4]SHBrowseForFolder undeclarated indefiner
selectdirectory undeclarated indefiner...
← →
Reindeer Moss Eater © (2007-10-23 09:54) [5]беда......
← →
Reindeer Moss Eater © (2007-10-23 09:55) [6]а f1 нажать сил нет?
← →
F@T@L_Err0r © (2007-10-23 10:13) [7]может надо подключить какой то модуль.я подключаю Shellapi...
← →
Reindeer Moss Eater © (2007-10-23 10:14) [8]Может и надо. В справке кстати про это написано.
← →
F@T@L_Err0r © (2007-10-23 10:17) [9]В упор не вижу где...
← →
Reindeer Moss Eater © (2007-10-23 10:19) [10]http://img81.imageshack.us/img81/963/unitgg4.jpg
← →
F@T@L_Err0r © (2007-10-23 10:28) [11]selectdirectory("Select a folder","C:\","C:\"); There is no overloaded version for selectdirectory can be called...
← →
Dennis I. Komarov © (2007-10-23 10:32) [12]> [11] F@T@L_Err0r © (23.10.07 10:28)
Ну справку внимательно прочитал?
← →
Reindeer Moss Eater © (2007-10-23 10:32) [13]не. к терапевту
← →
F@T@L_Err0r © (2007-10-23 10:37) [14]ну я еще токо учусь...плиз подскажите как нада!!!
← →
Dennis I. Komarov © (2007-10-23 10:42) [15]> [14] F@T@L_Err0r © (23.10.07 10:37)
Самое первое - это научиться читать справку
← →
Dennis I. Komarov © (2007-10-23 10:48) [16]ЗЫ А ты как собрался получить результат?
← →
Reindeer Moss Eater © (2007-10-23 10:50) [17]ЗЫ А ты как собрался получить результат?
Видимо ценной бандеролью.
PS автору : последний параметр должен быть варом.
← →
F@T@L_Err0r © (2007-10-23 10:52) [18]Спасиба --Получилось!!!
← →
Dennis I. Komarov © (2007-10-23 10:53) [19]> PS автору : последний параметр должен быть варом.
Это было его домашним заданием.
← →
F@T@L_Err0r © (2007-10-23 11:09) [20]А можно ли сделать так чтобы отображалися не только локальные папки но и сетевые?
← →
Dennis I. Komarov © (2007-10-23 11:25) [21]> [20] F@T@L_Err0r © (23.10.07 11:09)
У меня отображаются не только локальные, но и сетевые :)
← →
Palladin © (2007-10-23 11:27) [22]сытый, значит добрый )
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;
наслаждайся
← →
apic © (2007-10-23 11:35) [23]PItemIDList с какого юнита?
← →
Palladin © (2007-10-23 11:44) [24]ShlObj
← →
apic © (2007-10-23 11:57) [25]На ZeroMem выдает ошибку. Пробовал ZeroMemory, не соответствие типов выдает!
← →
Palladin © (2007-10-23 11:59) [26]обшибся чуток
ZeroMemory(@BrowseInfo,sizeof(TBrowseInfo));
← →
F@T@L_Err0r © (2007-10-23 12:57) [27]А ZeroMemory ето от какого юнита?У меня undeclareted indefiner...
← →
Palladin © (2007-10-23 12:59) [28]ну поискать то сложно что ли самому... все разжуй и в рот положи...
← →
antonn © (2007-10-23 23:51) [29]подключаемый модуль, вызывает то самое окошко выбора:
http://desksoft.ru/index.php?downloads=files&id=9
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.045 c