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

SHBrowseForFolder   Найти похожие ветки 

← →
RainKM ©   (2004-05-02 17:15) [0]

Мастера помогите!!!!
SHBrowseForFolder эта функция ввыводит стандартный диалог для вибора каталога, как мне узнать что пользователь вибрал в этом диалоге? Тоесть можно ли витянуть из этой функции путь к папке которую вибрал юзер, чтоб скажем вивести его в едит.

---

← →
Anatoly Podgoretsky ©   (2004-05-02 17:25) [1]

pszDisplayName

---

← →
RainKM ©   (2004-05-02 17:34) [2]

какой переменной его присвоить, вернее как?
edit1.text:=pszDisplayName;
так не пройдет, pszDisplayName это же поле в рекорде, как именно нужно пристоить??

---

← →
DVM ©   (2004-05-02 17:38) [3]

> так не пройдет, pszDisplayName это же поле в рекорде, как
> именно нужно пристоить??

edit1.text:=Запись.pszDisplayName;

---

← →
RainKM ©   (2004-05-02 17:48) [4]

pszDisplayName -  PAnsiChar пробовал не полечается

---

← →
RainKM ©   (2004-05-02 17:48) [5]

Смотря как вы пишите. Запись какая?

---

← →
DVM ©   (2004-05-02 17:53) [6]

var
a:TBrowseInfo;
begin
...
edit1.Text:=a.pszDisplayName

---

← →
RainKM ©   (2004-05-02 18:38) [7]

Так не канает, правда не знаю почему, жаль ....

---

← →
DVM ©   (2004-05-02 20:33) [8]

> Так не канает, правда не знаю почему, жаль ....

Что значит не канает. Какая ошибка? Что получается в результате?

---

← →
jel ©   (2004-05-02 22:24) [9]

Вот рабочий пример.


function SelectDirectory(titlename : string; Handle : integer) : string;
var
 lpItemID : PItemIDList;
 BrowseInfo : TBrowseInfo;
 DisplayName : array[0..MAX_PATH] of char;
 TempPath : array[0..MAX_PATH] of char;
begin
 FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
 BrowseInfo.hwndOwner := Handle;
 BrowseInfo.pszDisplayName := @DisplayName;
 BrowseInfo.lpszTitle := PChar(TitleName);
 BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
 lpItemID := SHBrowseForFolder(BrowseInfo);
 if lpItemId <> nil then begin
    SHGetPathFromIDList(lpItemID, TempPath);
    SelectDirectory := TempPath;
 end else SelectDirectory := "";
end;


---

← →
jel ©   (2004-05-02 22:24) [10]

Удалено модератором

---

← →
jel ©   (2004-05-02 22:25) [11]

2 moderator

Sorry за дубль

---

Страницы: 1 вся ветка

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



Память: 0.47 MB
Время: 0.022 c