Adicoinar No Registro

[Miranda]

Como faço para adicionar uma chave no registro assim que o arquivo for aberto !?

[Progr'amador]

Desculpe-me mas não entendi.

Poderia reformular sua pergunta com mais detalhes?

Abs. Progr'amador

[Miranda]

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

[Vivendo&Aprendendo]

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

[Miranda]

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.

[Vivendo&Aprendendo]

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