为什么获取不到XP系统中SQL服务器？？？

Question

以下是我的代码：
procedure SQLSevrThrd.SearchSQLSever;
var
  i :integer;
begin
  SQLServer  :=  CreateOleObject('SQLDMO.Application');
  ServerList:=  SQLServer.ListAvailableSQLServers;
  nServers:=ServerList.Count;
  frmMain.cbxSeverList.Items.Clear;
  if ServerList.Count > 0 then
  begin
    for i := 1 to nservers do
    begin
      frmMain.cbxSeverList.Items.Add(ServerList.Item(i));
      frmMain.cbxSeverList.ItemIndex := 0;
    end;
  end
  else ShowMessage('没有搜索到SQL服务器！');
  SQLServer:=NULL;
  serverList:=NULL;
end;

Answer 1

如果xp系统打了sp2补丁的话，自动开启了windows防火墙的，估计这种情况下无法被搜索到？