Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Usar registro


Aleksander

Pergunta

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;

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...