Como recuperar o valor da variavel da HKEY_LOCAL_MACHINE ?
Olá boa tarde!
Estou precisando recuperar o valor da variavel Registry do Windows.
Desejaria buscar em tempo de execução o path do FireBird onde o mesmo está instalado.
Fiz um teste com o exemplo abaixao, até consigo acessar o valor da primeira variável, mas
o conteudo que quero esta na segunda variável.
1-valor vazio
2- DefaultInstance - nesta está o valor que quero
Obs: inseri um valor na primeira variavel e consegui recuperar.
---------------Exemplo de teste -----------------
Reg := TRegistry.Create;
with Reg do begin
try
RootKey := HKEY_LOCAL_MACHINE;
if not OpenKey('software\firebird project\firebird server\instances',false) then begin
str := 'erro.........'; //\DefaultInstance
end else begin
str := ReadString('');
end;
CloseKey;
finally
Free;
Reg := nil;
end;
Memo1.Lines.Add(str);
End;
---------------------------------------------------------------------------------------
Estou precisando recuperar o valor da variavel Registry do Windows.
Desejaria buscar em tempo de execução o path do FireBird onde o mesmo está instalado.
Fiz um teste com o exemplo abaixao, até consigo acessar o valor da primeira variável, mas
o conteudo que quero esta na segunda variável.
1-valor vazio
2- DefaultInstance - nesta está o valor que quero
Obs: inseri um valor na primeira variavel e consegui recuperar.
---------------Exemplo de teste -----------------
Reg := TRegistry.Create;
with Reg do begin
try
RootKey := HKEY_LOCAL_MACHINE;
if not OpenKey('software\firebird project\firebird server\instances',false) then begin
str := 'erro.........'; //\DefaultInstance
end else begin
str := ReadString('');
end;
CloseKey;
finally
Free;
Reg := nil;
end;
Memo1.Lines.Add(str);
End;
---------------------------------------------------------------------------------------
Antonio Jesus
Curtidas 0
Melhor post
Renato Rubinho
23/01/2015
Buenos,
No ReadString, preencha o nome do valor que deseja recuperar.
Abraççç,
rrubinho
No ReadString, preencha o nome do valor que deseja recuperar.
str := ReadString('DefaultInstance');
Abraççç,
rrubinho
GOSTEI 1
Mais Respostas
Antonio Jesus
21/01/2015
sobe
GOSTEI 0