Выбор директории с указанием текущей [D6, Win2k]
oleg_ © (2006-04-13 13:31:00)
Вот потребовалось сделать сабж
Через SelectDirectory все просто но не доступна сеть
А через SHBrowseForFolder сеть видна но не удается задать
текущую директорию (нашел только как задать корень выбора).
vovnuke (2006-04-13 16:28:00) [1]
Не помню откуда:
Как использовать Shell API SHBrowseForFolder 2
threadvar
myDir: string;
function BrowseCallbackProc(hwnd: HWND; uMsg: UINT; lParam:
LPARAM; lpData:
LPARAM): integer; stdcall;
begin
Result := 0;
if uMsg = BFFM_INITIALIZED then
SendMessage(hwnd, BFFM_SETSELECTION, 1,
LongInt(PChar(myDir)))
end;
function SelectDirectory(const Caption: string; const Root:
WideString;
var Directory: string): Boolean;
var
WindowList: Pointer;
BrowseInf!
o: TBrowseInfo;
Buffer: PChar;
RootItemIDList, ItemIDList: PItemIDList;
ShellMalloc: IMalloc;
IDesktopFolder: IShellFolder;
Eaten, Flags: LongWord;
begin
myDir := Directory;
Result := False;
FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc
<> nil) then
begin
Buffer := ShellMalloc.Alloc(MAX_PATH);
try
RootItemIDList := nil;
if Root <> '' then
begin
SHGetDesktopFolder(IDesktopFolder);
IDesktopFolder.ParseDisplayName(Application.Handle, nil,
POleStr(Root), Eaten,
RootItemIDList, Flags);
end;
with BrowseInfo do
begin
hwndOwner := Application.Handle;
pidlRoot := RootItemIDList;
pszDisplayName := Buffer;
lpfn := @BrowseCallbackProc;
lParam :=
Integer(PChar(Directory));
lpszTitle := PChar(Caption);
ulFlags := BIF_RETURNONLYFSDIRS or
BIF_USENEWUI or BIF_STATUSTEXT;
end;
WindowList := DisableTaskWindows(0);
try
ItemIDList :=
ShBrowseForFolder(BrowseInfo);
finally
EnableTaskWindows(WindowList);
end;
Result := ItemIDList <> nil;
if Result then
begin
ShGetPathFromIDList(ItemIDList,
Buffer);
ShellMalloc.Free(ItemIDList);
Directory := Buffer;
end;
finally
ShellMalloc.Free(Buffer);
end;
end;
end;
сам разберешься что к чему.
Наверх 
ЧАТ |
Орешник |
|
