1С++ users forum - Как из языка 1с узнать релиз 1CV7s.exe ( например 25 или 27 ) ?

(UTC)

1С++ users forum › 1С++ и прочие расширения v7 › Курилка › Как из языка 1с узнать релиз 1CV7s.exe ( например 25 или 27 ) ?

(Группа Модераторов: 1c++ moderator)

‹ Предыдущая Тема | Следующая Тема ›

Страницы: 1

Отправить

Печать

Как из языка 1с узнать релиз 1CV7s.exe ( например 25 или 27 ) ? (число прочтений - 1749 )

Z1 God Member Отсутствует I Love YaBB 2! Сообщений: 2906 Местоположение: Москва Зарегистрирован: 26. Мая 2006 Пол:	Как из языка 1с узнать релиз 1CV7s.exe ( например 25 или 27 ) ? 05. Февраля 2010 :: 19:09	Печать
	Как из языка 1с узнать релиз 1CV7s.exe ( например 25 или 27 ) ? 1cpp используеться


	IP записан

trdm 1c++ power user qt1l developer 1c++ moderator Отсутствует Сообщений: 2344 Местоположение: г. Ростов-на-Дону Зарегистрирован: 19. Мая 2006 Пол:	Re: Как из языка 1с узнать релиз 1CV7s.exe ( например 25 или 27 ) ? Ответ #1 - 05. Февраля 2010 :: 20:54	Печать
	Z1 писал(а) 05. Февраля 2010 :: 19:09: Как из языка 1с узнать релиз 1CV7s.exe ( например 25 или 27 ) ? 1cpp используеться Код Перем глФСО Экспорт; ============================= // глПолучитьВерсиюВК( псПутьК_ВК) © trdm 2008 Функция глПолучитьВерсиюВК( псПутьК_ВК ) Экспорт ЗначВозврата = -1; Если ФС.СуществуетФайл(псПутьК_ВК) = 0 Тогда Возврат ЗначВозврата; КонецЕсли; вВерсия_Компоненты = глФСО.GetFileVersion(псПутьК_ВК); вВерсия_Компоненты = СтрЗаменить(вВерсия_Компоненты,".",""); вВерсия_Компоненты = Число(вВерсия_Компоненты); Если вВерсия_Компоненты>0 Тогда ЗначВозврата = вВерсия_Компоненты; КонецЕсли; Возврат ЗначВозврата; КонецФункции // глПолучитьВерсиюВК()


	Skype/VoIP ICQ IP записан

slawa Full Member Отсутствует I Love YaBB 2! Сообщений: 125 Зарегистрирован: 05. Октября 2006	Re: Как из языка 1с узнать релиз 1CV7s.exe ( например 25 или 27 ) ? Ответ #2 - 07. Февраля 2010 :: 03:26	Печать
	Из стандартной торговли Функция глПолучитьРелиз1С() Экспорт Попытка НТТРСистИнформ = СоздатьОбъект("AddIn.V7SysInfo"); Исключение Если ЗагрузитьВнешнююКомпоненту(КаталогDLL+"V7Plus.dll") <> 1 Тогда Сообщить("Ошибка загрузки компоненты V7+"); Возврат ""; КонецЕсли; КонецПопытки; НТТРСистИнформ = СоздатьОбъект("AddIn.V7SysInfo"); Возврат СокрЛП(НТТРСистИнформ.РелизПрограммы); КонецФункции


	IP записан

Z1 God Member Отсутствует I Love YaBB 2! Сообщений: 2906 Местоположение: Москва Зарегистрирован: 26. Мая 2006 Пол:	Re: Как из языка 1с узнать релиз 1CV7s.exe ( например 25 или 27 ) ? Ответ #3 - 08. Февраля 2010 :: 06:40	Печать
	Спасибо. Сделал способом из #1 Все Ок


	IP записан

Страницы: 1

Отправить

Печать

‹ Предыдущая Тема | Следующая Тема ›

« Главная ‹ Раздел Вверх