有没有象网上邻居那样的控件?

procedure TForm1.Button1Click(Sender: TObject);
var
  ppidl, iil: PITEMIDLIST;
  bi: BROWSEINFO;
  ret: Array[0..MAX_PATH - 1] of Char;
begin
  SHGetSpecialFolderLocation(
    Handle,
    CSIDL_NETWORK,
    ppidl);  bi.hwndOwner := Handle;
  bi.pidlRoot := ppidl;
  bi.pszDisplayName := nil;
  bi.lpszTitle := 'NetWork';
  bi.ulFlags := BIF_BROWSEINCLUDEFILES or BIF_RETURNONLYFSDIRS or BIF_STATUSTEXT;
  bi.lpfn := nil;
  iil := SHBrowseForFolder(bi);
  if iil <> nil then
  begin
    SHGetPathFromIDList(iil, ret);
    ShowMessage(ret);
  end;
end;