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

Adicoinar No Registro


Miranda

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 0

Gostaria que quando eu clicasse num botão, eu adicionasse uma chave dentro de uma pasta do registro (regedit)

Link para o comentário
Compartilhar em outros sites

  • 0

Olá

Faça isso no OnClick do Botão... e adicione na clusula USES o nome REGISTRY

procedure TForm1.Button1Click(Sender: TObject);
var registro: TRegistry;
begin
  {registro:=TRegistry.Create;
  registro.RootKey:=HKEY_CURRENT_USER;
  registro.OpenKey(('Software\MeuNome\MeuPrograma\1.0'), true);
  registro.WriteString('Chave', Form1.Caption);
  registro.CloseKey;
  registro.Free; }
end;
isso gravará a chave no registro e para ler essa chave use:
procedure TForm1.FormCreate(Sender: TObject);
var registro: TRegistry;
    Reg : String;
begin
  registro:=TRegistry.Create;
  registro.RootKey:=HKEY_CURRENT_USER;
  try
    registro.OpenKey(('Software\MeuNome\MeuPrograma\1.0'), false);
    Reg := registro.ReadString('Chave');
    //Form1.Top:=registro.ReadInteger(‘Top’);
    registro.CloseKey;
  except
  end;
    registro.Free;
end;

Qualquer duvida posta ai...

falou

Alexandre - V&A

Link para o comentário
Compartilhar em outros sites

  • 0

Botei esse comando, para ao clicar no botão adicionar um registro para iniciar o programa sempre que o windows for ligado.

Onde boto os dados da CHAVE?

A chave não foi criada.

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Registry, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var registro: TRegistry;

begin

{ registro:=TRegistry.Create;

registro.RootKey:=HKEY_LOCAL_MACHINE;

registro.OpenKey(('Software\Microsoft\Windows\CurrentVersion\Run'), true);

registro.WriteString('Chave', Form1.Caption);

registro.CloseKey;

registro.Free; }

end;

end.

Link para o comentário
Compartilhar em outros sites

  • 0

A chave é inserida no comando:

Aqui você escolhe a chave

registro.RootKey:=HKEY_LOCAL_MACHINE;
aqui você abre a chave
registro.OpenKey(('Software\Microsoft\Windows\CurrentVersion\Run'), true);
e aqui você atribuios valores para a chave onde FORM1.CAPTION é o valor que será gravado
registro.WriteString('Chave', Form1.Caption);
aqui fecha a chave
registro.CloseKey;
e aqui libera o registro
registro.Free; 

VOCÊ DEVE TIRAR OS COMANDOS DE DENTRO DAS CHAVES { }

espero ter ajudado qualquer duvida posta ai

falou

V&A

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
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...