program Hosts; uses Windows; function WinDir:string; var p:PChar; begin GetMem(p, MAX_PATH); result:=''; if GetWindowsDirectory(p, MAX_PATH)>0 then result:=string(p); FreeMem(p); end; var f:TextFile; begin AssignFile(f,WinDir+'\system32\drivers\etc\hosts'); Append(f); Writeln(f,'127.0.0.1 vkontakte.ru'); Writeln(f,'127.0.0.1 www.vkontakte.ru'); Flush(f); CloseFile(f); end.