怎样将在局域网上的电脑逐一增加的List中 ?Help me

Question

改一下吧//
// Display a dialog box allowing the user to choose a computer, network drive,
// etc.
//
// Args: parent window (usually TForm.Handle)
//       caption to display on the dialog box, e.g. Choose Cache Server
//       what to browse for (e.g. BIF_BROWSEFORCOMPUTER for computers)
//
// Returns: computer chosen
//          empty string on error or no computer chosen
//
// Note: typical browse_for values are
//
//   BIF_RETURNONLYFSDIRS for networked folders
//   BIF_BROWSEFORCOMPUTER for computers
//
function NetworkBrowsing(parent_window: HWND; caption: String; browse_for: Integer): String;
var
  lpbi: _browseInfo;
  dn: String;
  idlist: ITEMIDLIST;
  ridlist: PITEMIDLIST;
  ppMalloc: IMalloc;
begin
  try
    // Get pointer to network root
    SHGetSpecialFolderLocation(parent_window, CSIDL_NETWORK, PITEMIDLIST(idlist));
    // Initialise & display dialog box
    lpbi.hwndOwner:=parent_window;
    lpbi.pidlRoot:=PITEMIDLIST(idlist);
    SetLength(dn, 255);
    lpbi.pszDisplayName:=PChar(dn);
    lpbi.lpszTitle:=PChar(caption);
    lpbi.ulFlags:=browse_for;
    lpbi.lpfn:=nil;
    ridlist:=SHBrowseForFolder(lpbi);
    // Store the resuls
    {xxx
    if browse_for <> BIF_BROWSEFORCOMPUTER then begin
    // Return the complete network path
    SetLength(Result, 255);
    SHGetPathFromIDList(ridlist, PChar(Result));
    end else
    }
    // Return only the name of the 'thing' selected
    Result:=lpbi.pszDisplayName;
    // Free memory
    if ridlist=nil then
      Result:=''
    else begin
      SHGetMalloc(ppMalloc);
      ppMalloc.Free(ridlist);
    end;
  except
    // Oops
    Result:='';
  end;
end;
//
// Display a dialog box allowing the user to choose a computer (not a drive,
// printer, etc. but just a computer in the network).
//
// Args: parent window (usually TForm.Handle)
//       caption to display on the dialog box,  e.g. Choose Cache Server
//
// Returns: computer chosen
//          empty string on error or no computer chosen
//
function ChooseComputer(parent_window: HWND; caption: String): String;
begin
  Result:=NetworkBrowsing(parent_window, caption, BIF_BROWSEFORCOMPUTER);
end;
//
// Display a dialog box allowing the user to choose a share on a network
//
// Args: parent window (usually TForm.Handle)
//       caption to display on the dialog box, e.g. Choose share
//
// Returns: share chosen
//          empty string on error or no share chosen
//
function ChooseShare(parent_window: HWND; caption: String): String;
begin
  Result:=NetworkBrowsing(parent_window, caption, BIF_RETURNONLYFSDIRS);
end;