Como adiciono uma Chave no Registro do Windows??

Question

bom pessoal, � o seguinte:gostaria de saber como adiciono uma chave em:HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRuna Chave = nome de meu programa e o Valor = caminho at� o execut�v...

Ltres · Answer

:arrow: Faz assim![code:1:158bfd6417]procedure addRegIni;var  reg: TRegistry;begin  reg := TRegistry.Create;  reg.RootKey := HKEY_LOCAL_MACHINE;  reg.OpenKey(�SOFTWAREMicrosoftWindowsCurrentVersionRun�);  reg.WriteString(�NOME PROG�, �CAMINHO PROG�);  reg.CloseKey;  reg.Free;end;[/code:1:158bfd6417]Naum esquece de botar Registry na Uses da unit   :wink:...

Otto · Answer

assim, declarei a clausula registry em users e botei essa rotina em um botao

procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
[color=red:c1adebb109] reg.OpenKey(�SOFTWARE\Microsoft\Windows\CurrentVersion\Run�);[/color:c1adebb109]
reg.WriteString(�oTTo�, �c:\AdminRemote\Cliente.exe�);
reg.CloseKey;
reg.Free;
end;

deu erro nessa linha vermelha...

Otto · Answer

bom, a rotina correta � :arrow:

procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
// reg.OpenKey(�SOFTWARE\Microsoft\Windows\CurrentVersion\Run�);
reg.OpenKey(�SOFTWARE\Microsoft\Windows\CurrentVersion\Run�, true);
reg.WriteString(�oTTo�, �c:\AdminRemote\Cliente.exe�);
reg.CloseKey;
reg.Free;
end;

tem que declarar a clausula Registry em users.
essa rotina faz com que o programa inicia automaticamente junto com o windows.

flw galera.

F�rum Como adiciono uma Chave no Registro do Windows?? #192215