// Закрываем все окна с запещенными словами(например с YouTube), которые записаны в файле
// удобно и быстро отключать просмотр для детей на другом компьютере
ПутьКФайлу = "\\ИмяПКРодителя\Обмен\Список запрещенных слов для ребенка.txt";
Если (Файлы.Есть(ПутьКФайлу)=0) Тогда
    Сообщить("Файл не найден", ПутьКФайлу);
    Возврат 0;
Конец;
ТекЗаголовок = Строки.Нижний(Окна.Заголовок());
Текст        = "";
Текст.Прочитать(ПутьКФайлу);
закрыть = 0;
Для Стр Из Текст Цикл
    Сообщить(Стр);
    Если (Строки.Найти(ТекЗаголовок, Строки.Нижний(Стр))>0) Тогда
        закрыть = 1;
        Прервать;
    Конец;
Конец;
Если (закрыть=1) Тогда
    Сообщить("Закрываем", ТекЗаголовок);
    Окна.Закрыть(Окна.Заголовок());
Конец;