SHBrowseForFolder的回调函数使用(100分)

Micro Whaight · 2001-05-15

如何做到:当选择的目录变化时,即时的在窗口中显示出 相应的选中目录名.好象和SHBrowseForFolder的回调 函数中的消息: BFFM_SELCHANGED(是不是还有 BFFM_SETSTATUSTEXT?)有关.只是不知道具体该如何 写这个回调函数以及给BrowseInfo的lParam参数赋值. 可否请写段具体代码?因为我对回调函数及WinAPI不熟悉 相关函数如下: function BrowseCallbackProc(hwnd: HWND;   uMsg: UINT; lParam: Cardinal;   lpData: Cardinal): integer; stdcall; begin   if uMsg = BFFM_INITIALIZED then     result := SendMessage(Hwnd,BFFM_SETSELECTION,       Ord(True),Longint(PChar(sStartPath)))       //sStartPath是个全局字符串变量,用于初始定位   else if uMsg = BFFM_SELCHANGED then   begin //  result := ?????????? //  result := SendMessage(Hwnd, BFFM_SETSTATUSTEXT, ?????)   end   else     result := 1; end; function SelDir(const Caption: string;   const Root: WideString; out Directory: string): Boolean; var   ...   BrowseInfo: TBrowseInfo; begin   ...   sStartPath := ExtractFileDir(Application.ExeName);   with BrowseInfo do   begin     hwndOwner := Application.Handle;     pidlRoot := RootItemIDList;     pszDisplayName := Buffer;     lpszTitle := PChar(Caption);     ulFlags := BIF_RETURNONLYFSDIRS;     lpfn := @BrowseCallbackProc; //  lParam := ???????????????????   end;   ... end;

Micro Whaight · 2001-05-20

真的没办法吗？还是太过麻烦？再加100分。

wangxd · 2001-05-20

BROWSEINFO info; LPCITEMIDLIST itemid; char dir[50]; info.hwndOwner=this->Handle; info.pidlRoot=NULL; info.pszDisplayName=NULL; info.lpszTitle="select directory"; info.ulFlags=0; info.lpfn=NULL; info.lParam=0; info.iImage=0; itemid=SHBrowseForFolder(&info); if(itemid!=NULL)  {  SHGetPathFromIDList(itemid,dir);  Label1->Caption=AnsiString(dir);  }

Micro Whaight · 2001-05-24

对不起, wangxd, 可能我没把问题说清楚. 我是想在那个调出的 系统选择文件夹对话框中, 根据用户的选择, 即时地反映出当前 选择的目录(此时用户还没有按下"选择文件夹"对话框中的确定按 钮).效果有点象... 象NetVampire 3.3中的选择下载文件保存目 录中的效果: 在打开这个对话框后, 用户选择了一个目录, 就会在 对话框中显示目录的名称, 但是用户还没有按下确定按钮. 你说的 方法, 只能在用户按下 "确定" 按钮后, 才能在某个 Label 中显 示. 这个我已经实现了.

左轻侯 · 2001-05-24

与其这样，不如不使用SHBrowseForFolder，自己做一个文件夹选择窗口 systree控件可以很方便地实现这个，比SHBrowseForFolder还好看，而且支持多选

bbkxjy · 2001-05-25

这样子：   function BrowseCallbackProc(Handle: HWND;   uMsg: UINT; lParam: Cardinal;   lpData: Cardinal): integer; stdcall; var   dirbuf: array[0..Max_Path-1] of Char; begin   Result := 0;   if uMsg = BFFM_INITIALIZED then   begin     if GetCurrentDirectory(Max_path,@dirbuf) > 0 then                   // WParam is TRUE since you are passing a path.                   // It would be FALSE if you were passing a pidl.        SendMessage(Handle,BFFM_SETSELECTION,1,LongInt(@Dirbuf));   end   else if  uMsg = BFFM_SELCHANGED then   begin      // Set the status window to the currently selected path.      if SHGetPathFromIDList(PItemIDList(lParam) ,@Dirbuf) then        SendMessage(Handle,BFFM_SETSTATUSTEXT,0,LongInt(@Dirbuf));   end; end; function SelectDirectoryEx(const Caption: string; const Root: WideString;   out Directory: string): Boolean; var   WindowList: Pointer;   BrowseInfo: TBrowseInfo;   Buffer: PChar;   RootItemIDList, ItemIDList: PItemIDList;   ShellMalloc: IMalloc;   IDesktopFolder: IShellFolder;   Eaten, Flags: LongWord; begin   Result := False;   Directory := '';   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;         lpszTitle := PChar(Caption);         ulFlags := BIF_RETURNONLYFSDIRS or BIF_STATUSTEXT;//包含 BIF_STATUSTEXT         lpfn := @BrowseCallbackProc;  //回调函数       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; SelectDirectoryEx 这个函数主要是从 FileCtrl.pas 中拷过来的，只作了些修改。其它 的参考了 MSDN。运行测试过了。

Micro Whaight · 2001-05-27

谢谢bbkxjy!!! 请到543347贴拿另外的100分.

SHBrowseForFolder的回调函数使用(100分)

Micro Whaight

Unregistered / Unconfirmed

Micro Whaight

Unregistered / Unconfirmed

wangxd

Unregistered / Unconfirmed

Micro Whaight

Unregistered / Unconfirmed

左轻侯

Unregistered / Unconfirmed

bbkxjy

Unregistered / Unconfirmed

Micro Whaight

Unregistered / Unconfirmed

Similar threads