Bloquear página con archivo Host
 

Buenas me pueden ayudar con un button agregar una dirección ('paginaweb.com 127.0.0.1') y borrar también dicha dirección(con otro button) en el archivo Host de windows. Me imagino que se necesita permisos de administrador o que muestre tal mensaje de ejecutar como administrador.

Gracias

Hola Olenkaguilar,

Ya tienes algo hecho para poder ayudarte, el fichero "hosts" se encuentra en "C:\Windows\system32\drivers\etc"

Un saludo

Hola
 

Hola así es; lo estado intentando, soy novata en el tema de delphi pero ganas no me faltan de aprender!

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);// este boton es para agregar una linea al final del contenido del host
var 
Clientes: TStringList;
 begin
  Clientes := TStringList.Create;
  Clientes.LoadFromFile('C:\Windows\System32\drivers\etc\hosts'); //Bueno aquí solo indica que el hosts esta en "c", pero y que tal si esta en "d"
  Clientes := TStringList.Create;
  Clientes.add:=               //aquí no se me ocurre como agregar una linea al final del contenido
  Clientes.SaveToFile( 'C:\Windows\System32\drivers\etc\hosts' ); // guardo cambios 
    Memo1.Lines.Add(Clientes.Text);      // muestro nuevamente en el memo
 end;

procedure TForm1.Button2Click(Sender: TObject);  //borrar última linea (linea que acabo de agregar con el boton1)
var 
Clientes: TStringList;
 begin
  Clientes := TStringList.Create;
  Clientes.delete:=  ;   
  Clientes.SaveToFile( 'C:\Windows\System32\drivers\etc\hosts' );
    Memo1.Lines.Add(Clientes.Text);
 end;

procedure TForm1.FormCreate(Sender: TObject); // al iniciar el programa abre el host y muestra en el memo
var 
 Clientes: TStringList;
 begin
  Clientes := TStringList.Create;
  Clientes.LoadFromFile('C:\Windows\System32\drivers\etc\hosts');
    Memo1.Lines.Add(Clientes.Text);
 end;

end.

espero su ayuda

PD: Creo que el tema lo movieron?? creo que cometí un error al título de mi tema, porque casi nada tiene que ver con internet :D