Buscar

Função para Inserir e Ler dados do Registro do Windows

Código

Olá a Todos!

Fiz uma função para facilitar a vida de quem usa o registro do windows para armazenar informações.

1º Declarar na Uses: Registry.
2º Na type colocar: function  Reg(Acao,Campo,Dados: String):String;

3º Vamos para a função:

function Form1.Reg(Acao,Campo,Dados: String):String;
var
    Reg: TRegistry;
begin
    Reg:= TRegistry.Create;

    with Reg do
        begin
        RootKey:=HKEY_LOCAL_MACHINE; //Define qual chave do registro vai acessar;
        OpenKey('SoftwareSistemasDemo', True);//Abre a Chave.

        if Acao = 'Read' then //Se o parametro passado for "Read" ela irá ler os dados.
            begin
            result:=ReadString(Campo);
            end;

        if Acao = 'Write' then //Se o parametro passado for "Write" ela irá escrever no registro.
            begin
            WriteString(Campo, Dados);
            end;

        CloseKey;
        Free;
        end;
end;

Quando for realizar a leitura usar: Reg('Read','NOME','');
No caso de leitura, não é preciso informar 'DADOS', deixa ele vazio usando '';

Quando for realizar uma escrita usar:
Reg('Write','NOME','BRENO');
o campo 'NOME' é o campo onde deseja armazenar o dado 'BRENO';

Esse é o meu primeiro post, espero ter ajudado!

Até a proxima.

Breno M. Medeiros
www.grsoft.com.br

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 23/02/10
Por: Breno M. Medeiros
Visualizada: 6362 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009