Listar Instâncias do SQL máquina Local - Delphi 7

Delphi

09/10/2014

Bom Dia

Existe alguma função ou método no Delphi que liste as instâncias instaladas na máquina do Sql Server, necessito dessa funcionalidade, pois estou desenvolvendo um instalador de um sistema.
Lucas Ramos

Lucas Ramos

Curtidas 0

Respostas

Lucas Ramos

Lucas Ramos

09/10/2014

procedure TFInstalador.ListarInstanciasSqlServer;
var
     Registro : TRegistry;
    
begin
     lstInstanciasSql.Items.Clear;

     {Registro := TRegistry.Create;
     Registro.RootKey := HKEY_LOCAL_MACHINE;
     Registro.OpenKey('SOFTWARE\Microsoft\Microsoft SQL Server\', false);
     //Registro.GetKeyNames(lstInstanciasSql.Items);
     //Registro.GetValueNames(lstInstanciasSql.Items);

     lstInstanciasSql.Items.Add(Registro.ReadString('InstalledInstances'));
     Registro.CloseKey;
     Registro.Free;}


Achei como pegar pelo Registro do Windows porém o tipo de Dados do Registro é REG_MULTI_SZ, que é como se fosse um array, tem nLinhas e a função do TRegistry ReadString retorna apenas uma linha, que nesse caso está retornando vazio, alguém sabe como tratar esse tipo de registro para capturar e colocar em um array de string?
GOSTEI 0
POSTAR