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

Не нашел ответа на WinAPI. Попробую здесь   Найти похожие ветки 

← →
Avers   (2003-05-29 20:10) [0]

В свое время скачал процедуру выбора каталогов. Работает нормально, однако не могу заставить ее начинать вывод подкаталогов начиная с текущего.
Если не слишком затруднит, подскажите как задать pidlROOT у BrowseInfo, чтобы получить lpItemID текущего каталога

procedure TForm1.Button1Click(Sender: TObject);
Var TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
CurrDir: String;
begin
CurrDir:= GetCurrentDir;
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := Form1.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
ShowMessage(TempPath);
GlobalFreePtr(lpItemID);
end;
end;

Источник: Дельфи. Вокруг да около.
Кроме того, неделю или полторы назад видел обсуждение подобной темы на этом форуме. Если не затруднит, подскажите где это можно посмотреть

---

← →
clickmaker ©   (2003-05-29 20:25) [1]

SendMessage(BrowseDlg.Handle, BFFM_SETSELECTION, 1, Longint(PChar(Path)));

---

← →
Serginio   (2003-05-29 20:36) [2]

http://inprise.hotbox.ru/winapi_faq1.html#16

---

← →
Avers   (2003-05-29 20:56) [3]

2 Serginio (29.05.03 20:36)
Извини, мужик, но твой ответ содержался в моем вопросе, если не можешь предложить что-то конкретное, то и на этом спасибо

---

← →
Avers   (2003-05-29 21:09) [4]

2 clickmaker © (29.05.03 20:25)
Не успел проверить. Предварительно, спасибо

---

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

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



Память: 0.45 MB
Время: 0.008 c