Como ler valores do registro do Windows?
Com esta função podemos facilmente ler informações
no registro do Windows, simplesmente passando a
chave e a função retorna valor como String.
É necessário estar declarado Registry na seção uses,
em versões unicode declare System.Win.Registry.
Abaixo segue o código fonte da função:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| function ReadRegistyDll(Chave : String) : String;
var
Registro : TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_CURRENT_USER;
Result := '';
if (Registro.OpenKey(Chave, True)) then
begin
Result := Registro.ReadString(Chave);
end;
Registro.CloseKey;
Registro.Free;
end; |
function ReadRegistyDll(Chave : String) : String;
var
Registro : TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_CURRENT_USER;
Result := '';
if (Registro.OpenKey(Chave, True)) then
begin
Result := Registro.ReadString(Chave);
end;
Registro.CloseKey;
Registro.Free;
end;
Exemplo de uso
1
2
3
4
| procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ReadRegistyDll('showdelphi'));
end; |
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ReadRegistyDll('showdelphi'));
end;
Segue abaixo o link de como efetuar a escrita de valores no registro do Windows.
http://showdelphi.com.br/dica-como-escrever-valores-no-registro-do-windows-delphi/
-
InfusTec
-
5.602 views
- 0 comentários
- 26 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo