С наступающим Новым Годом (Елочка, зажгись)
Задачи пользователя - Поздравления
Бесплатные
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Узнавайте о новых бесплатных решениях в нашей телеграм-группе Инфостарт БЕСПЛАТНО
В архиве 26 елочек. Кидаем в сетевую папку , расшариваем.
2 константы (активность сервиса и путь к папке)
В процедуру ПриНачалеРаботыСистемы() прописываем процедуру ЕлочкаЗажгись()
Процедура ЕлочкаЗажгись() Экспорт
Если Константы.ЕлочкаЗажгись.Получить() = Истина Тогда
ПутьКПапке = Константы.ЕлочкаПуть.Получить();
МассивНайденных = НайтиФайлы(ПутьКПапке, "*.exe");
МассивНайденных.Количество();
ГСЧ = Новый ГенераторСлучайныхЧисел();
Если МассивНайденных.Количество() <> 0 Тогда
СлучЧисло = ГСЧ.СлучайноеЧисло(0 , МассивНайденных.Количество()-1);
ПутьКЕлочке = МассивНайденных.Получить(СлучЧисло).ПолноеИмя;
ЗапуститьПриложение(ПутьКЕлочке);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
P.S. Внимание, ехе очень любят прописываться в автозагрузку.
Вступайте в нашу телеграмм-группу Инфостарт