如何检测机子上是否装有SQL2000？

Question

如题！

Answer 1

讀註冊表
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server]
"SsrpActiveServer"=""
"InstalledInstances"=hex(7):4d,00,53,00,53,00,51,00,4c,00,53,00,45,00,52,00,56,  00,45,00,52,00,00,00,00,00
"SqlMdacRegRefCount"=dword:00000001

Answer 2

我在没SQL2000的机子上看也是有一样的信息啊，
到底装没装的显示是什么呀？

Answer 3

看注册表，是不是只能知道这台机子是否安装过SQL2000，如果安装过又卸载了，注册表里好象还有残存的信息吧？

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
   SQLServer,ServerList :Variant;
   i,SQLCount :integer;
begin
  SQLServer := CreateOleObject('SQLDMO.Application');
  ServerList:= SQLServer.ListAvailableSQLServers;
  SQLCount:=ServerList.Count;
  for i := 1 to SQLCount do
  begin
     showmessage ('存在SQL2000，机器名是'+ServerList.Item(i));
  end;
  SQLServer:=NULL;
  serverList:=NULL;
end;