Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.009 c
3-50228
I_C_E_
2003-05-24 14:54
2003.06.16
Вопрос по QReport


1-50314
Ghost
2003-06-03 10:10
2003.06.16
как сохранить всю информацию из ListView на диск ?


7-50540
yura
2003-04-10 18:28
2003.06.16
Неужели никто не знает?!!!. Как в Delphi можно отключить польз..


14-50486
Music
2003-05-29 01:38
2003.06.16
Music


1-50306
Fuelfire
2003-06-03 11:45
2003.06.16
SaveDialog