求个能修改HOSTS的代码（DELPHI）。

Question

.exe双击  可以修改HOSTS文件。修改成什么样，最好能写代码的时候，自己可以写在代码里。谢谢。----你对360绕行最好。。不绕行也没事。。要个详细点的代码。

Answer 1

是C:\WINDOWS\system32\drivers\etc下的hosts文件吗，你就当普通文件修改就行了，就一个文本文件

Answer 2

当成txt文件读取修改保存即可。
例如读进memo，然后在memo中修改，设个保存按钮进行保存就好了

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  ts:TStringList;
begin
  try
    ts:=TStringList.Create;
    ts.LoadFromFile('C:\WINDOWS\system32\drivers\etc\hosts');
    ts.Add('127.0.0.1       www.csdn.net');
    ts.SaveToFile('C:\WINDOWS\system32\drivers\etc\hosts');
    ts.Free;
    ShowMessage('Sucess');
  except
    ShowMessage('Error');
  end;
end;直接当做文本修改就行了。

Answer 4

要先找到以前加入的xxx.xxx.xxx.xxx       www.csdn.net这样的内容，删掉
才能加入127.0.0.1       www.csdn.net

Answer 5

一个memo即可……这个本来就是一个txt，可以直接修改的

Answer 6

當作普通的文本txt文件操作即可.