Текущий архив: 2003.06.16;
Скачать: 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 вся ветка
Текущий архив: 2003.06.16;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.005 c