И теперь не придется дергаться и/или лишний раз открывать "Справка / О программе". Тем более, что в управляемом приложении, еще один дополнительный клик мышкой
Обработка работает как с обычным приложением, так и управляемым. Корректно показывает файловые и серверные базы данных.
Для тех у кого конфигурация на поддержке и не хочется снимать, можно дописать в ярлык запуска 1С /ExecuteC:\work\СтартСистемы.epf
Более искушенные могут прописать код в конце процедуры ПриНачалеРаботыСистемы()
Для обычного приложения нужно найти в "модуле обычного приложения" процедуру ПриНачалеРаботыСистемы()
Процедура ПриНачалеРаботыСистемы()
//
ЗаголовокСистемы = ПолучитьЗаголовокСистемы();
ТекущаяСтрока = СокрЛП(ВРег(СтрокаСоединенияИнформационнойБазы()));
Если Лев(ТекущаяСтрока, 5) = "SRVR=" Тогда
ПозицияБД = Найти(ТекущаяСтрока, ";REF=");
_ИмяСервера = Сред(ТекущаяСтрока, 7, ПозицияБД-8);
_ИмяБД = Сред(ТекущаяСтрока, ПозицияБД+6, СтрДлина(ТекущаяСтрока)-1-(ПозицияБД+6));
СтрокаБД = " (Сервер: "+_ИмяСервера+" БД: "+_ИмяБД+")";
Иначе
_ИмяСервера = Сред(ТекущаяСтрока, 7, 100);
СтрокаБД = " (Файл: "+_ИмяСервера+")";
КонецЕсли;
УстановитьЗаголовокСистемы(ЗаголовокСистемы + СтрокаБД);
Отказ = Истина;
КонецПроцедуры