| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Диалог выбора каталога [D6, WinXP]

001 ©   (2006-11-15 21:00:00) 

Мне необходимо иметь возможносьт создавать новый каталог.
Уже перекопал кучу всего в сторонуSHBrowseForFolder и SelectDirectory т.п.

но нигде нет кнопки "создать".
подскажите опцию стандартного диалога или какие-нить сторонние компоненты....


function BrowseDialog(const Title: string; const Flag: integer): string;
var
 lpItemID: PItemIDList;
 BrowseInfo: TBrowseInfo;
 DisplayName: array [0..MAX_PATH] of char;
 TempPath: array [0..MAX_PATH] of char;
begin
 Result := '';
 FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
 with BrowseInfo do
 begin
   hwndOwner := Application.Handle;
   pszDisplayName := @DisplayName;
   lpszTitle := PChar(Title);
   ulFlags := Flag;
 end;
 lpItemID := SHBrowseForFolder(BrowseInfo);
 if lpItemId <> nil then
 begin
   SHGetPathFromIDList(lpItemID, TempPath);
   Result := TempPath;
   GlobalFreePtr(lpItemID);
 end;
end;


---

001   (2006-11-16 10:30:00) [1]

Может просто надо было знать где посмотреть... )

---

Джо   (2006-11-15 22:07:00) [2]

> [3] 001   (15.11.06 22:04)
> спасибо! сам еси честно нашел.. )

Забавно, что это заняло так много времени. :)
Достаточно было посмотреть MSDN по функции SHBrowseForFolder...

---

001   (2006-11-15 22:04:00) [3]

спасибо! сам еси честно нашел.. )

{ Browsing for directory }

 BIF_RETURNONLYFSDIRS   = $0001; { For finding a folder to start document searching }
 BIF_DONTGOBELOWDOMAIN  = $0002; { For starting the Find Computer }
 BIF_STATUSTEXT         = $0004;
 BIF_RETURNFSANCESTORS  = $0008;

 BIF_BROWSEFORCOMPUTER  = $1000; { Browsing for Computers }
 BIF_BROWSEFORPRINTER   = $2000; { Browsing for Printers }
 BIF_BROWSEINCLUDEFILES = $4000; { Browsing for Everything }

const
BIF_EDITBOX = $10;
BIF_VALIDATE = $20;
BIF_NEWDIALOGSTYLE = $40;
BIF_BROWSEINCLUDEURLS = $80;
BIF_UAHINT = $100;
BIF_NONEWFOLDERBUTTON = $200;
BIF_NOTRANSLATETARGETS = $400;
BIF_SHAREABLE = $8000;


---

Джо   (2006-11-15 21:31:00) [4]

В структуре BROWSEINFOвключить флаг Version BIF_NEWDIALOGSTYLEв поле Flags.

---

Rouse_   (2006-11-15 21:28:00) [5]

Велком ко мне на сайт :)
http://rouse.drkb.ru
а именно: http://rouse.drkb.ru/files/fwopendirectory.zip

---

Наверх