Показать сообщение отдельно
Старый 12.11.2004, 07:11     # 695
netwok
Newbie
 
Аватар для netwok
 
Регистрация: 02.08.2004
Адрес: Алтайский край г. Барнаул
Сообщения: 37

netwok Нуль без палочки
Если кому интересно как обойти клич к 1С Рарус сельхоз предприятие версия 307. То вот решение.


В конфигурауии переименовываеш фаил SHK3.dll в SelHozKonf.dll
Затем в глобальном модуле вот это место
////////////////////////////////////////////////////////////////////////////////
// ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ
//

//********************************************************************** ********
// Предопределенная процедура
//
Процедура ПриНачалеРаботыСистемы()

//сх+
Состояние("Инициализация конфигурации ...");
// Загружаем компоненту защиты
Если ЗагрузитьВнешнююКомпоненту("SHK3.dll")=0 Тогда
Предупреждение("Не обнаружен ключ защиты программы!", 30);
СтатусВозврата(0); Возврат;
Иначе
КомпонентаСХК = СоздатьОбъект("AddIn.SHK3");
КомпонентаСХК.Инициализация();
КонецЕсли;
//сх+ конец

переписываем вот так


////////////////////////////////////////////////////////////////////////////////
// ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ
//

//********************************************************************** ********
// Предопределенная процедура
//
Процедура ПриНачалеРаботыСистемы()

//сх+
Состояние("Инициализация конфигурации ...");
// Загружаем компоненту защиты
Если ЗагрузитьВнешнююКомпоненту("SHK3.dll")=1 Тогда
КомпонентаСХК = СоздатьОбъект("AddIn.SHK3");
КомпонентаСХК.Инициализация();
КонецЕсли;
//сх+ конец

все должно получится.
netwok вне форума