С наступающим Новым Годом (Елочка, зажгись)

Подборка новогодних анимированных елочек на рабочий стол (26)

В архиве 26 елочек. Кидаем в сетевую папку , расшариваем.

2 константы (активность сервиса и путь к папке)

В процедуру ПриНачалеРаботыСистемы() прописываем процедуру ЕлочкаЗажгись()

Процедура ЕлочкаЗажгись() Экспорт
Если Константы.ЕлочкаЗажгись.Получить() = Истина Тогда
ПутьКПапке = Константы.ЕлочкаПуть.Получить();

МассивНайденных = НайтиФайлы(ПутьКПапке, "*.exe");

МассивНайденных.Количество();

ГСЧ = Новый ГенераторСлучайныхЧисел();

Если МассивНайденных.Количество() <> 0 Тогда
СлучЧисло = ГСЧ.СлучайноеЧисло(0 , МассивНайденных.Количество()-1);
ПутьКЕлочке = МассивНайденных.Получить(СлучЧисло).ПолноеИмя;

ЗапуститьПриложение(ПутьКЕлочке);
КонецЕсли;
КонецЕсли;
КонецПроцедуры

P.S. Внимание, ехе очень любят прописываться в автозагрузку.

9 Comments

dmsoft 01.01.2005 at 03:00

Подборка новогодних анимированных елочек на рабочий стол (26)

Перейти к публикации

Reply ↓
gutentag 27.12.2011 at 02:00

Спасибо. а как в бух-2.0 дописать новые константы идописать процедуру ПриНачалеРаботыСистемы() , не снимая конфу с поддержки 1С ?

Спасибо за ответ 🙂

Reply ↓
Angry 28.12.2011 at 08:32

Нужно включить возможность изменения.

Это с поддержки не снимет, но автоматического обновления не будет.

Reply ↓
НатальяАлекс 28.12.2011 at 12:49

Идея не нова. Зачем 26 елочек?

Reply ↓
НатальяАлекс 28.12.2011 at 12:51

И снимать с поддержки ради елочки не улыбается.

Reply ↓
accnt 28.12.2011 at 14:58

прикольненько))

Reply ↓
icich 28.12.2011 at 16:03

здорово, что там именно 26 елочек . Праздника очень хочется! А настроения нет…

Reply ↓

lonsby 30.12.2011 at 12:40

Для терминалки добавил код при завершении 1с, чтобы убирался процесс

Процедура ПриЗавершенииРаботыСистемы()
КомандаСистемы(«TASKKILL /F /FI «»USERNAME eq » + ИмяПользователя());
//КомандаСистемы(«TASKKILL /F /FI «»USERNAME eq » + ИмяПользователя() + «»» /IM «+ ИмяПроцесса);
КонецПроцедуры

Reply ↓

milkers 19.12.2018 at 11:18

(0) Поздравление на управляемых формах https://infostart.ru/public/960899/

Reply ↓

С наступающим Новым Годом (Елочка, зажгись)

Related Posts

9 Comments

Leave a Comment Отменить ответ