(Resolvido) Usar registro

[Aleksander]

Olá amigos, dessa vez prometo que não vou fazer pergunta sobre imagem.

Uso o codigo abaixo que o colega Churc me ensinou para iniciar com windows, funciona perfeitamente.

Desejo colocar um Checkbox onde possa controlar o auto-iniciar, ou seja, com o

Checkbox1.Checked :=true ativa o auto-iniciar, Checkbox1.Checked :=false desativa

o auto-iniciar.

Sei lêr e gravar o valor do registro mas não consegui fazer a ligação.

Grato pela atenção.

Auto-iniciar

procedure TForm1.FormCreate(Sender: TObject);
begin
with TRegistry.Create do
begin
  RootKey := HKEY_CURRENT_USER;
  try
    Openkey('Software\Microsoft\Windows\CurrentVersion\Run', False);
    WriteString('Cadastro', ParamStr(0));
  finally
    Closekey;
    Free;
  end;
end;
end;

lêr e gravar valor

procedure TForm1.Button1Click(Sender: TObject);
begin
   with TRegistry.Create do
 begin
   try
   RootKey := HKEY_CURRENT_USER;
   OpenKey('Cad',True);
   WriteBool('Dados',checkbox1.Checked);
   finally
    CloseKey;
    Free;
   end;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   with TRegistry.Create do
 begin
   try
     RootKey := HKEY_CURRENT_USER;
     OpenKey('Cad',False);
     checkbox1.Checked:=(ReadBool('Dados'));
   finally
    CloseKey;
    Free;
   end;
 end;
end;

[Churc]

Opa

Segue abaixo o código...

with TRegistry.Create do
  begin
    RootKey := HKEY_CURRENT_USER;
    try
      Openkey('Software\Microsoft\Windows\CurrentVersion\Run', False);
      if CheckBox1.Checked then
      WriteString('Cadastro', ParamStr(0)) else
      if ValueExists('Cadastro') then
      DeleteValue('Cadastro');
    finally
      Closekey;
      Free;
    end;
  end;

Só não acho que neste caso fique legal voce usar isso no AutoCreate do Form

abraco

[Aleksander]

Caro Churc, segui seu conselho e tirei do AutoCreate, ficou perfeito, muito obrigado.

Grande abraço!