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 文件增加指定记录。(记录在程序内添加,想加几个就几个。。点 确定 就可以写入。。)。。因为HOSTS里面已经有 127.0.0.1 LOCALHOST 了想写个程序 换成下一行(也就是127.0.0.1 LOCALHOST 之后另起一行)开始写入。-------------------------要个完整点的,用上面的程序作更改吧。谢谢高手
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 文件增加指定记录。(记录在程序内添加,想加几个就几个。。点 确定 就可以写入。。)。。因为HOSTS里面已经有 127.0.0.1 LOCALHOST 了想写个程序 换成下一行(也就是127.0.0.1 LOCALHOST 之后另起一行)开始写入。-------------------------要个完整点的,用上面的程序作更改吧。谢谢高手
write(targettxt,#10)
hosts.Add('xx');