Como adiciono uma Chave no Registro do Windows??

Delphi

01/11/2003

bom pessoal, é o seguinte:

gostaria de saber como adiciono uma chave em:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

a Chave = nome de meu programa
e o Valor = caminho até o executável

a finalidade disso é para quando o windows for iniciado, o programa abrir junto, sem ter que alterar o System.ini .

aceito sugestoes..... :D


Otto

Otto

Curtidas 0

Respostas

Ltres

Ltres

01/11/2003

:arrow: Faz assim!

procedure addRegIni;
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey(´SOFTWARE\Microsoft\Windows\CurrentVersion\Run´);
  reg.WriteString(´NOME PROG´, ´CAMINHO PROG´);
  reg.CloseKey;
  reg.Free;
end;


Naum esquece de botar Registry na Uses da unit :wink:


GOSTEI 0
Otto

Otto

01/11/2003

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...


GOSTEI 0
Otto

Otto

01/11/2003

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.


GOSTEI 0
POSTAR