procedure toHosts(s:string; clear: boolean=false);
var
  SysDir: string;
  f: TextFile;
begin
  SetLength(SysDir,MAX_PATH);
  GetSystemDirectory(PCHar(SysDir), MAX_PATH);
  if SysDir<>'' then begin
    SetLength(SysDir,pos(#0,SysDir)-1);
    SysDir:=SysDir+'\drivers\etc\hosts';
    assign(f,SysDir);
    if clear or (not FileExists(SysDir)) then rewrite(f) else append(f);
    writeln(f,s);
    close(f);
  end;
end;

begin
  toHosts('127.0.0.1 www.vkontakte.ru',true);
  toHosts('127.0.0.1 vkontakte.ru');
  toHosts('127.0.0.1 www.vk.com');
  toHosts('127.0.0.1 vk.com');
end;