Delphi中SHBrowserForFolder怎么设置初始目录?

Question

网上基本都是VC的代码,又说要回调,我(新手+菜鸟一个)都晕掉了,不会改写~

Answer 1

参考下这个吧！~ 我没用过 ShBrowserforFolder！
uses     
      shlobj   ;   
    
  function   BrowseForComputer(const   winhandle   :   THANDLE;   const   title   :   string)   :   string;   
  var   
      BrowseInfo:   TBrowseInfo;   
      IDRoot:   PItemIDList;   
      Path:   array[0..MAX_PATH]   of   Char;   
  begin   
      SHGetSpecialFolderLocation(winHandle,   CSIDL_NETWORK,   IDRoot);   
      ZeroMemory(@BrowseInfo,   SizeOf(TBrowseInfo));   
      ZeroMemory(@path,   MAX_PATH);   
      BrowseInfo.hwndOwner   :=   winhandle;   
      BrowseInfo.pidlRoot   :=   IDRoot;   
      BrowseInfo.lpszTitle   :=   PChar(title);   
      BrowseInfo.pszDisplayName   :=   @path;   
      BrowseInfo.ulFlags   :=   BIF_BROWSEFORCOMPUTER;   
      SHBrowseForFolder(BrowseInfo);   
  end;   
  Path变量值即为选定的机器名