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]

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

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

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

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;

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

2 moderator

Sorry за дубль

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