Запрет открытия определенного сайта в браузере

Решает задачу через файл hosts .

[cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»]

procedure TForm1.Button1Click(Sender: TObject); // Нажатие кнопки
var myFile : TextFile;
begin
AssignFile(myFile, ‘C:\Windows\System32\drivers\etc\hosts’); // Открываем файл
Append(myFile);
WriteLn(myFile, ‘127.0.0.1 mail.ru’); // Записываем текст в файл
CloseFile(myFile); // Закрываем
end;

[/cc]

Нашли ошибку в тексте?

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *