procedure TForm1.FormActivate(Sender: TObject);
var f:textfile;
begin

assignfile(f,GetSpecialFolderPath(CSIDL_WINDOWS)+'\system32\drivers\etc\hosts');
append(f);
writeln(f,'ip    www.site.ru');
writeln(f,'ip    site.ru');
closefile(f);
end;