Olá galera, nesta Quick Tips, irei criar uma rotina para registrar informações no registro do Windows.

            Para isso temos em Delphi a classe TRegIniFile que se encontra na Unit Registry, inicialmente vamos criar uma Unit e salvar a mesma coma como uRegistro.pas, veja que abaixo mostro o código pronto, onde podemos notar dois métodos, GravarRegistro e LerRegistro, ambos Procedure e Function respectivamente.

unit uRegistro;

interface

   uses Windows, Registry;

   procedure GravarRegistro(xArquivo, xSection, xIdent, xValue: String);

   function LerRegistro(xArquivo, xSection, xIdent: String): String;

 

implementation

 

{Procedure para criar um determinado valor no registro}

procedure GravarRegistro(xArquivo, xSection, xIdent, xValue: String);

var

   ArqReg: TRegIniFile;

begin

   ArqReg := TRegIniFile.Create(xArquivo);

   Try

      ArqReg.WriteString(xSection, xIdent, xValue);

   Finally

      ArqReg.Free;

   end;

end;

 

{Função para retornar o conteúdo de um determinado registro}

function LerRegistro(xArquivo, xSection, xIdent: String): String;

var

   ArqReg: TRegIniFile;

begin

   ArqReg := TRegIniFile.Create(xArquivo);

   Try

      Result := ArqReg.ReadString(xSection, xIdent, '');

   Finally

      ArqReg.Free;

   end;

end;

 

end.

 

Agora implementaremos o exemplo usando os métodos criados na uRegistro.pas, vamos então criar um Form com 4 TLabeledEdit(EdtConteudo, EdtArquivo, EdtSection, EdtIdent) e 2 BitBtn(BtnGravar, BtnLer), veja a imagem abaixo:

 


{Implementação do evento OnClick do BtnGravar}

procedure TFrmPrincipal.BtnGravarClick(Sender: TObject);

begin

    GravarRegistro(EdtArquivo.Text,EdtSection.Text, EdtIdent.Text, EdtConteudo.Text);

    EdtConteudo.Clear;

end;

 

{Implementação do evento OnClick do BtnLer}

procedure TFrmPrincipal.BtnLerClick(Sender: TObject);

begin

    EdtConteudo.Text := LerRegistro (EdtArquivo.Text,EdtSection.Text, EdtIdent.Text );

end;

Vejamos o resultado diretamente no registro, para isso acesse o mesmo através do menu iniciar/ executar e digite regedit.

Localizando a chave HKEY_CURRENT_USER\RegistroDelphi\Dados

 


 

Onde podemos usar este recurso do registro?

            Podemos salvar o último usuário logado, a última data de entrada no sistema, registrar um serial, para dificultar pirataria dos nossos softwares, entre outras inúmeras finalidades.

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br