100分,关于对话框问题>>>>>>

Question

uses ShlObj;procedure TForm1.Button1Click(Sender: TObject);
  function SelectComputer(var ComputerName: string): Boolean;
  var
    BrowseInfo: TBrowseInfo;
    ItemIdList: PItemIdList;
    temp: array[0..32] of char;
  begin
    SHGetSpecialFolderLocation(Application.Handle, CSIDL_NETWORK,
                               ItemIdList);
    FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
    BrowseInfo.hwndOwner := Handle;
    BrowseInfo.pidlRoot := ItemIdList;
    BrowseInfo.pszDisplayName := temp;
    BrowseInfo.lpszTitle := 'Ñ¡Ôñ¼ÆËã»ú';
    BrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER;
    Result := Assigned(SHBrowseForFolder(BrowseInfo));
    if Result then ComputerName := temp;
  end;var
  s: string;
begin
  if SelectComputer(s) then ShowMessage(s);
end;