Вывод версии установленных пакетов.

Author: nixel2007

src/Классы/ДиспетчерКомандПриложения.os

@@ -235,7 +235,12 @@
 	КонецЕсли;
 
 	Для Каждого УстановленныйПакет Из УстановленныеПакеты Цикл
-		Сообщить(УстановленныйПакет.Ключ);
+		СтрокаСообщения = УстановленныйПакет.Ключ;
+		Если ТипЗнч(УстановленныйПакет.Значение) = Тип("ОписаниеПакета") Тогда
+			ОписаниеПакета = УстановленныйПакет.Значение;
+			СтрокаСообщения = СтрокаСообщения + "@" + ОписаниеПакета.Свойства().Версия;
+		КонецЕсли;
+		Сообщить(СтрокаСообщения);
 	КонецЦикла;
 
 КонецПроцедуры