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

Открытие папок ка в WinAmp   Найти похожие ветки 

← →
Zmei   (2004-10-02 21:47) [0]

Здравствуйте!
Использую диалог открытия папок (SHBrowseForFolder), может кто-нибудь знает как добавить туда чекбокс (для включения подпапок - аналогично в WinAmp)???
Спасибо заранее!!!

---

← →
Гаврила ©   (2004-10-02 22:18) [1]

Насколько я знаю, никак
пиши руками

---

← →
olookin ©   (2004-10-03 00:24) [2]

Насколько я знаю - то как в винампе можно с помощью SelectDirectory.. Или я не знаю, как оно в винампе...

---

← →
antonn ©   (2004-10-03 03:49) [3]

function BrowseFolderDialog(Title: Pchar): string;
var
 TitleName: string;
 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 := getdesktopwindow;
 BrowseInfo.pszDisplayName := @DisplayName;
 TitleName := "Please specify a directory";
 BrowseInfo.lpszTitle := PChar(TitleName);
 BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
 lpItemID := SHBrowseForFolder(BrowseInfo);
 if lpItemId <> nil then begin
   SHGetPathFromIDList(lpItemID, TempPath);
//ShowMessage(TempPath);
   Result := TempPath;
   GlobalFreePtr(lpItemID);
 end;
end;

В uses ShlObj;

---

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

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



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