Главная страница
    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.44 MB
Время: 0.005 c
1-50297
killer
2003-06-04 17:04
2003.06.16
Как в программе выделить и скопировать текст из Label-а?


14-50500
SPeller
2003-05-30 15:10
2003.06.16
Matrix Reload


14-50502
SPeller
2003-05-31 08:56
2003.06.16
Дельфийская консоль


3-50204
Новачок
2003-05-26 10:55
2003.06.16
xlReport


14-50438
SH
2003-05-29 14:14
2003.06.16
Уменьшение объёма exe-файлов





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский