Hola! gracias por los aportes, a mí me funcionó con una variante: modifiqué el último procedimiento así
Código Delphi
[-]
var
Registro : TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_CURRENT_USER;
if Registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then
begin
Registro.WriteInteger('EnableAutodial',1);
Registro.WriteInteger('NoNetAutodial',1);
Registro.CloseKey;
Registro.Free;
end;
end;
Aclaro que estoy en una red local, mi conexión a Internet es por cable y compartida. Estoy detrás de un switch y un router.