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

26.12.11

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

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
ChristmasTrees.rar .rar 7,57Mb 44	44	Скачать (1 SM)	Купить за 1 850 руб.

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

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

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

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

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

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

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

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

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

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

+9 –

См. также

Матрешка прячет секреты в PNG

Работа с интерфейсом Поздравления Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Хотите сделать цифровую поздравительную открытку? Обработка умеет прятать секреты в картинки png.

26.12.2024 1013 16 dsdred 12

Новогодний квест "Матрешка"

Поздравления Платформа 1С v8.3 Бесплатно (free)

Данная статья для меня юбилейная, и я решил устроить небольшой новогодний квест «Матрешка» с подарком для самого быстрого.

26.12.2024 1212 dsdred 32

Универсальные поздравления с праздниками

Поздравления Платформа 1С v8.3 Управляемые формы 1С:ERP Управление предприятием 2 Бесплатно (free)

Расширение конфигурации с гибкой настройкой: предопределенные праздники, возможность добавления праздников, индивидуальные праздники по пользователям Включает скачанные картинки для поздравления (в архиве).

04.12.2024 402 33 user1242725 0

Оформление 8 марта для 1С

Поздравления Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Бесплатно (free)

Расширение - поздравлялка с 8 марта. Добавляет цветочки на некоторые формы объектов, в честь 8 марта. Использование - для всех желающих.

05.03.2024 4203 234 zakharov_yuri 13

Как сделать сюрприз для пользователей

Поздравления Работа с интерфейсом Программист Платформа 1С v8.3 Бесплатно (free)

Когда бухгалтер просит вставить кактус, я не могу отказать.

28.12.2023 2032 e.kogan 4

Валентинки 1C

Поздравления Бесплатно (free)

Сделали эти валентинки для любимых клиентов и коллег.

14.02.2023 1906 ystetsenko 1

Поздравление с Новым годом

Поздравления Платформа 1С v8.3 1С:Управление торговлей 11 Абонемент ($m)

Расширение - поздравление с Новым годом.

1 стартмани

19.11.2022 2360 8 mrSallivan 2

Поздравление сотрудников с праздниками

Поздравления Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Абонемент ($m)

Обработка-открытка для поздравления с праздниками.

4 стартмани

09.12.2021 3795 7 user610182_firstbit70 2

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

0. dmsoft 107 01.01.70 03:00 Сейчас в теме

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

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

1. gutentag 253 27.12.11 02:00 Сейчас в теме

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

Спасибо за ответ :)

2. Angry 11 28.12.11 08:32 Сейчас в теме

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

3. НатальяАлекс 34 28.12.11 12:49 Сейчас в теме

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

4. НатальяАлекс 34 28.12.11 12:51 Сейчас в теме

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

5. accnt 28.12.11 14:58 Сейчас в теме

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

6. icich 28.12.11 16:03 Сейчас в теме

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

7. lonsby 68 30.12.11 12:40 Сейчас в теме

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

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