johnny-walker
Moderador
Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
|
 Enviada: Qua Jun 13, 2018 2:58 pm Assunto: Fallha ao abrir chave do registro do windows |
 |
|
| Código: | var
RootKey: TRegistry;
begin
RootKey := TRegistry.Create;
RootKey.RootKey := HKEY_LOCAL_MACHINE;
try
With RootKey do
begin
try
Result := //OpenKey('\SOFTWARE\Firebird Project\Firebird Server\Instances', False) or
OpenKeyReadOnly('\SOFTWARE\Firebird Project\Firebird Server\Instances') or
//OpenKey('\SOFTWARE\WOW6432Node\Firebird Project\Firebird Server\Instances', False);
OpenKeyReadOnly('\SOFTWARE\WOW6432Node\Firebird Project\Firebird Server\Instances');
|
Notei que no delphi 2010 e windows 10 não está funcionando a função para ler a chave do registro com OpenKey(), apenas OpenKeyReadOnly() está funcionando adequadamente.
Alguém já teve este problema?
Se este for o caso, não será possível verificar a chave e criá-la.
PS.: Se alguém tive uma unit mais recente do registro a unit registry, por favor queira disponibilizar para ver se continua o erro.
bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
