能不能把网上邻居加入到drivecombobox的列表中？

谢谢

解决方案 »

  1.   

    这个当然可以
    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);
         result := strpas(path) ;
    end;procedure TConnectFrm.Button1Click(Sender: TObject);
    begin
         ComboBox1.Text :=  BrowseForComputer(ConnectFrm.Handle,'Select a Computer') ;
         //Button2Click(Sender);
    end;
      

  2.   

    到这句BrowseInfo  :  TBrowseInfo;就出错，请问我该怎么办？谢谢！！
      

  3.   

    你没有加头文件,当然会出错    ShlObj
      

  4.   

    到这句BrowseForComputer(ConnectFrm.Handle,'Select a Computer') ;出错了，提示ConnectFrm这个有错
      

  5.   

    sbxtzhl(sbxtzhl) 哪个是我的窗体名字呀,你该成你自己的窗体