Запрет открытия определенного сайта в браузере
Решает задачу через файл 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]