Como adicionar um valor a uma chave no registro?
Estou precisando fazer que o meu software seja iniciado automaticamento com o windows e nao pode ser pela pasta ´Inicializar´ no menu inicar.
Quero adicionar o endereco do software ao registro ´HKEY_LOCAL_MACHINE\softwares\microsoft\windows\current_version\run´.
Estive olhando umas funcoes de manipulacao de registro da biblioteca windows mas só consegui usar uma que cria chaves e nao valores.
Quero adicionar o endereco do software ao registro ´HKEY_LOCAL_MACHINE\softwares\microsoft\windows\current_version\run´.
Estive olhando umas funcoes de manipulacao de registro da biblioteca windows mas só consegui usar uma que cria chaves e nao valores.
Nightwolf_br
Curtidas 0
Respostas
Skywalker
04/07/2003
Ola Tudo Bem
Tente esta rotina abaixo
Registro:= TREgistry.Create;
registro.RootKey:= HKEY_LOCAL_MACHINE;
registro.OpenKey(´\softwares\microsoft\windows\current_version\run´, true);
registro.WriteString(´nomedasuachave´, ´enderecodoarquivo´);
registro.free;
Tente esta rotina abaixo
Registro:= TREgistry.Create;
registro.RootKey:= HKEY_LOCAL_MACHINE;
registro.OpenKey(´\softwares\microsoft\windows\current_version\run´, true);
registro.WriteString(´nomedasuachave´, ´enderecodoarquivo´);
registro.free;
GOSTEI 0
Odirlei
04/07/2003
Meu sistema possui uma rotina que adiciona um registro para meu programa inicializar junto com Windows conforme o exemplo acima. Gostaria de saber como fazer para meu sistema, quando solicitado, remover esse registro. Escrevi uma rotina para isso só que ela está removendo todos registros do RUN.
Minha rotina:
procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg:= TRegistry.Create;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey(´\software\microsoft\windows\currentversion\run´, false);
reg.DeleteValue(´\software\microsoft\windows\currentversion\run´);
reg.free;
end;
Onde estou errando?
Minha rotina:
procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg:= TRegistry.Create;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey(´\software\microsoft\windows\currentversion\run´, false);
reg.DeleteValue(´\software\microsoft\windows\currentversion\run´);
reg.free;
end;
Onde estou errando?
GOSTEI 0
Rômulo Barros
04/07/2003
Faz assim:
procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg:= TRegistry.Create;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey(´\software\microsoft\windows\currentversion\run´, false);
reg.DeleteValue(digite aqui o nome de seu ´Valor´);
reg.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg:= TRegistry.Create;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey(´\software\microsoft\windows\currentversion\run´, false);
reg.DeleteValue(digite aqui o nome de seu ´Valor´);
reg.free;
end;
GOSTEI 0