如何通过代码检查本机是否已安装SQLServer数据库？

RT。

有代码解析最好了

在网上查了些  有通过检查注册表判断的方式，有通过列出局域网上SQLSERVER服务的方式

1.检查注册表
 ARegistry := Tregistry.Create;
 ARegistry.RootKey := HKEY_LOCAL_MACHINE;
  try
    ARegistry.OpenKey('SOFTWARE\MICROSOFT\MICROSOFT SQL SERVER\80\Registration', False);
    cdkey := ARegistry.ReadString('CD_KEY');
    ARegistry.CloseKey;
  except
     cdkey := '';
  end;
问题：不管是否已安装SQLSERVER ,cdkey的值始终等于 ''
      不知道我那个地方写的不对 还是这种判断方式有问题...

2.列出局域网上SQLSERVER服务
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    nServers := ServerList.Count;
    for i := 1 to nservers do
    begin
      showmessage(ServerList.Item(i)); //无法列出本机的服务名称，因此无法检查本机是否安装
    end;
    SQLServer := NULL;
    serverList := NULL;

各位帮忙看下错在哪儿  或者有没有更好的办法？ 

8 个解决方案