Скачать: CL | DM;

Выбор папки   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.51 MB
Время: 0.015 c