quarta-feira, 29 de setembro de 2010

Leitura e escrita no RegEdit do Windows - Delphi

//evento de do botão!
procedure TForm1.Button1Click(Sender: TObject);
var
reg : TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
try
if reg.OpenKey('Software\umcastec',true) then
// para deletar o valor
//--reg.DeleteValue('Valor armazenado');
//para escrever no valor
reg.WriteString('Valor armazenado', 'Escrevendo no RegEdit');
//leitura do valor
//--reg.ReadString('Valor armazenado');
finally
reg.CloseKey;
reg.Free;

end;
end;

Atenção: tome cuidado ao trabalhar com o registro do Windows, uma falha pode causar danos ao S.O.

Nenhum comentário: