Registro do windows
01/09/2004
0
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
Curtir tópico
+ 0
Responder
Posts
01/09/2004
Mkoch
//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.
Responder
Clique aqui para fazer login e interagir na Comunidade :)