Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.049 c
2-1166205215
Tupoy
2006-12-15 20:53
2007.01.07
OnKeyPres. подскажите пример


2-1166260131
AlexanderMS
2006-12-16 12:08
2007.01.07
Учёт разрешения принтера.


15-1166188044
РВА
2006-12-15 16:07
2007.01.07
Зарплата программиста (примерно)


2-1166214377
FIL-23
2006-12-15 23:26
2007.01.07
как узнать какая по счету линия в memo


3-1161522213
Piero
2006-10-22 17:03
2007.01.07
Database Desktop