如何做到换行，在HOSTS文件中加记录。谢谢。

Question

var  
  hosts:TStringList;  
  hostspath:string;  
  str1:string;  
begin  
  hosts := TStringList.Create;  
  hostspath := GetEnvironmentVariable('SystemRoot') + '\System32\drivers\etc\hosts';  
  hosts.LoadFromFile(hostspath);  
  str1 := #9 + '127.0.0.1' + #9 + '你要屏蔽的域名';  
  hosts.add(str1);
  hosts.SaveToFile(hostspath);  
  hosts.Free;  
end; ------------因为HOSTS里面已经有   127.0.0.1  LOCALHOST  了想写个程序   换成下一行（也就是127.0.0.1  LOCALHOST 之后另起一行）开始写入。-------------------------要个完整点的，用上面的程序作更改吧。谢谢高手

Answer 1

stringlist中用indexof找到127.0.0.1 LOCALHOST 索引，然后用insert插入的指定位置