delphi 修改host文件的办法

Question

delphi 修改host文件的办法Delphi下 如何修改 host文件
我想做个免疫的软件
免疫流氓网站 求解

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  t:TStringList;
begin
   t:=TStringList.Create;
   t.LoadFromFile('c:\windows\system32\drivers\etc\hosts');
   t.Add('127.0.0.1  www.xxx.com'); //加你的网站
   //...
   t.SaveToFile('c:\windows\system32\drivers\etc\hosts');
   t.free;
end;

Answer 2

我之前研究过host，但我觉得改完了不太管用