如何做到像'映射网络驱动器'那样,能过点击获取网络上共享目录的路径?

Question

相信大家都对映射网络驱动器不陌生,里面有个'文件夹'选项,如何做到后面那个'浏览'按钮的效果? 能帮忙解决,马上给分100,谢谢!在线等

Answer 1

http://www.delphibbs.com/delphibbs/dispq.asp?lid=425247我参照SelectDirectory函数的源码写过一个这样的函数，好象只是改了个参数，其实差不多属于剽窃:)
——注意在uses中加上对ShlObj和ActiveX的引用。function SelectComputer: String;//从对话框返回的计算机名
var
  WindowList: Pointer;
  BrowseInfo: TBrowseInfo;
  Buffer: PChar;
  RootItemIDList, ItemIDList: PItemIDList;
  ShellMalloc: IMalloc;
begin
...看是不是你要的