Registro do windows
Preciso incluir em um programa no evento oncreate uma instrução que altere os dados de uma chave do registro. Li várias respostas postadas no forum mas ficou meio confuso:
Gostaria de apagar os seguintes dados :
HKEY_LOCAL_MACHINE/system/currentControlSet/services/VxD/MSTCP
dentro desta chave existe o valor ´NameServer´ e eu gostaria que os dados desse valor ficasse em branco.
Um detalhe quando fechar o programa no evento onclose tem que voltar os dados.
Alguém pode dar uma mãozinha?
Gostaria de apagar os seguintes dados :
HKEY_LOCAL_MACHINE/system/currentControlSet/services/VxD/MSTCP
dentro desta chave existe o valor ´NameServer´ e eu gostaria que os dados desse valor ficasse em branco.
Um detalhe quando fechar o programa no evento onclose tem que voltar os dados.
Alguém pode dar uma mãozinha?
Roberto Rossi
Curtidas 0
Respostas
Mkoch
01/09/2004
//No OnCreate
begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(´system/currentControlSet/services/VxD/MSTCP ´, False);
Reg.WriteString(´NameServer´, ´´));
Reg.CloseKey;
finally
Reg.Free;
end;
end;
//No OnClose
begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(´system/currentControlSet/services/VxD/MSTCP ´, False);
Reg.WriteString(´NameServer´, ´Valor desejado´);
Reg.CloseKey;
finally
Reg.Free;
end;
end;
Declare TRegistry no Uses.
Espero ter ajudado.
begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(´system/currentControlSet/services/VxD/MSTCP ´, False);
Reg.WriteString(´NameServer´, ´´));
Reg.CloseKey;
finally
Reg.Free;
end;
end;
//No OnClose
begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(´system/currentControlSet/services/VxD/MSTCP ´, False);
Reg.WriteString(´NameServer´, ´Valor desejado´);
Reg.CloseKey;
finally
Reg.Free;
end;
end;
Declare TRegistry no Uses.
Espero ter ajudado.
GOSTEI 0