Форум: "Основная";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];
Вниз
Диалог выбора каталога Найти похожие ветки
← →
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
включить флаг VersionBIF_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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c