NoiadoX
Aprendiz
Registrado: Terça-Feira, 8 de Julho de 2003
Mensagens: 256
|
 Enviada: Qui Dez 26, 2013 3:29 pm Assunto: Ler Chave registro do windows (Caminho root do delphi) |
 |
|
Pessoal, estou tentando ler o rootdir do delphi no registro do windows, mas não estou conseguindo, por favor deem uma olhada no código abaixo:
| Código: | function TfrmPrincipal.RetornaRegistro(ChaveRoot : String; Chave : String):string;
var
Registro : TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey:=HKEY_CURRENT_USER;
if registro.OpenKey('\Software\Borland\Delphi\7.0', False) then begin
result := Registro.ReadString('RootDir');
end;
registro.CloseKey;
registro.Free;
end; |
A chave que quero pegar o conteúdo é a da imagem abaixo:
Pra mim o código ta correto, não entendo por que não consegue ler, ele simplesmente não acha a chave.
_________________
http://endshop.mercadoshops.com.br/ |
|
claudio.ferreira
Profissional
Registrado: Quarta-Feira, 18 de Setembro de 2013
Mensagens: 667
|
| Enviada: Sex Jan 03, 2014 9:34 am Assunto: |
|
|
Isso é devido a que no Win 7 o Registro tem proteção para escrita por usuários sem permissão e voce está abrindo o registro em modo de acesso total, tente abrir em modo de leitura e veja se funciona :
RootKey := TRegistry.Create (KEY_READ);
_________________
Sistema SNGPC para farmácias
http://www.cmasistemas.com.br
Rastreabilidade de Medicamentos
https://www.sncm.com.br
Soluções em Delphi
https://delphisolutions.wordpress.com/
.
"E não sabendo que era impossível, foi lá e fez"
Mark Twain |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
