Текущий архив: 2007.01.07;
Скачать: CL | DM;

Вниз

Диалог выбора каталога   Найти похожие ветки 

← →
001   (2006-11-15 21:00) [0]

Мне необходимо иметь возможносьт создавать новый каталог.
Уже перекопал кучу всего в сторону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;


---

← →
Rouse_ ©   (2006-11-15 21:28) [1]

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

---

← →
Джо ©   (2006-11-15 21:31) [2]

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

---

← →
001   (2006-11-15 22:04) [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 22:07) [4]

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

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

---

← →
001   (2006-11-16 10:30) [5]

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

---

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

Текущий архив: 2007.01.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.048 c