Код (Pascal)

Перем Сервис;

Функция ЗагруженностьКомпоненты(
		СтрокаОбъекта
		,ИмяБиблиотеки=""
		,ПытатьсяЗагрузитьВСлучаеОшибки=0
		,СоздаватьОбъектОтдельнойКомандой=0
		)
	Перем Загруж, Объект;
	Перем РеалОбъект;

	Загруж=1;
	Попытка
		Объект=СоздатьОбъект(СтрокаОбъекта);
		Если СоздаватьОбъектОтдельнойКомандой=1 Тогда
			РеалОбъект=Объект.CreateObject();
		КонецЕсли;
	Исключение
		Загруж=0;
	КонецПопытки;
	РеалОбъект="";
	Объект="";

	Если Загруж=0 Тогда
		Если (ПустаяСтрока(ИмяБиблиотеки)=0) и (ПытатьсяЗагрузитьВСлучаеОшибки=1) Тогда
			Загруж=1;
			Попытка
				ЗагрузитьВнешнююКомпоненту(ИмяБиблиотеки);
			Исключение
				Загруж=0;
				Сообщить("Ошибка. Загрузить внешнюю компоненту """+ СокрЛП(ИмяБиблиотеки) +""" не удалось! Обратитесь к специалисту.","!!!");
			КонецПопытки;
		КонецЕсли;
	КонецЕсли;

	Возврат Загруж;
КонецФункции

Процедура Сформировать()
	Перем Документ;

	Если ПустоеЗначение(ТекДок) = 0 Тогда
		стрВерсия ="";
		нВерсия = Сервис.Версия(стрВерсия);
		Сообщить(СокрЛП(нВерсия) + " | " + СокрЛП(стрВерсия) );

		Документ = СоздатьОбъект("Документ."+СокрЛП(ТекДок.Вид()));
		Если Документ.НайтиДокумент(ТекДок) = 1 Тогда
			Сервис.КопироватьОбъект(Документ)
		КонецЕсли;
		Документ = "";
	КонецЕсли;
КонецПроцедуры

Процедура ПриОткрытии()
	Если ЗагруженностьКомпоненты("Сервис","formex.dll",1)=0 Тогда
		Сообщить("Ошибка загрузки FORMEX!","!!!");
		СтатусВозврата(0);
		Форма.Закрыть();
	Иначе
		Сервис = СоздатьОбъект("Сервис");
	КонецЕсли;
КонецПроцедуры // ПриОткрытии