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