• 0
Sign in to follow this  
Aleksander

(Resolvido) Usar registro

Question

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;

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this