Buscar por:

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