Manipular regedit

Delphi

27/06/2011

Bom dia,

estou tentando trabalhar com registro, mas já tentei muitas coisas e nada, não sei se o meu Delphi não está com problema, pois pelo que vejo em pesquisas na net é algo bem simples e quando executo não acontece nada, então estou aqui para ver se vocês me ajudam.

Gostaria de criar "pastas" dentro do regedit, exemplo:

Criar dentro de: HKEY_CURRENT_USER\Software

Criar a "pasta" (no regedit é nova chave, mas visualmente parece uma pasta) 'Nome'

Depois de criar 'Nome' gostaria de criar dentro de 'Nome' a pasta 'Aplicativo'

aí dentro de 'Aplicativo' criar um novo valor de sequencia do tipo string 'Campo' que vai receber o valor 'Código'
e ontro valor de sequencia do tipo boolean 'Consulta' que vai receber True ou False.

Tentei algo assim, mas nada fez:

var
  Reg: TRegIniFile;
begin
  // Grava as persistências da janela
  Reg := TRegIniFile.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  try
    if Reg.OpenKey('\Software\Nome\TRE', True) then
    begin
      Reg.WriteString('Assistente', 'Caminho fonte destino', 'Destino');     
      Reg.WriteBool('Assistente', 'Copiar com query', True);
      Reg.WriteInteger('Assistente', 'Tabela destino', 1);
    end;
  finally
    Reg.Free;
  end;
end;

Luiz Junior

Luiz Junior

Curtidas 0

Respostas

Wilson Junior

Wilson Junior

27/06/2011

De uma olhada neste link https://www.devmedia.com.br/post-18005-TRegIniFile-Registro-do-Windows-em-Delphi.html

Espero ter colaborado.
GOSTEI 0
Sandro Adão

Sandro Adão

27/06/2011

Bom Dia Junior,

Está faltando fechar a chave do registro altere a parte final do seu código por esse:
  finally
    Reg.CloseKey; // Fecha a chave do registro
    Reg.Free; // Libera da memória
  end;


Espero ter ajudado.

GOSTEI 0
POSTAR