1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | // Закрываем все окна с запещенными словами(например с YouTube), которые записаны в файле// удобно и быстро отключать просмотр для детей на другом компьютереПутьКФайлу = "\\ИмяПКРодителя\Обмен\Список запрещенных слов для ребенка.txt";Если (Файлы.Есть(ПутьКФайлу)=0) Тогда Сообщить("Файл не найден", ПутьКФайлу); Возврат 0;Конец;ТекЗаголовок = Строки.Нижний(Окна.Заголовок());Текст = "";Текст.Прочитать(ПутьКФайлу);закрыть = 0;Для Стр Из Текст Цикл Сообщить(Стр); Если (Строки.Найти(ТекЗаголовок, Строки.Нижний(Стр))>0) Тогда закрыть = 1; Прервать; Конец;Конец;Если (закрыть=1) Тогда Сообщить("Закрываем", ТекЗаголовок); Окна.Закрыть(Окна.Заголовок());Конец; |