谁知道调用什么函数出现浏览网上邻居的对话框？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  BrowseInfo: TBrowseInfo;
  ItemIDList: PItemIDList;
  ComputerName: array[0..255] of char;
begin
  SHGetSpecialFolderLocation(Application.Handle, CSIDL_NETWORK, ItemIdList);
  FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
  BrowseInfo.hwndOwner := Application.Handle;
  BrowseInfo.pidlRoot := ItemIDList;
  BrowseInfo.pszDisplayName := ComputerName;
  BrowseInfo.lpszTitle := '选择计算机';
  BrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER;
  if Assigned(SHBrowseForFolder(BrowseInfo)) then
    ShowMessage(ComputerName);
end;