Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для kotkovets

Ветеран


Сообщения: 1216
Благодарности: 486

Профиль | Отправить PM | Цитировать


MKN, я имел еще виду исполняемый файл для этапа компиляции на с++ - тут придется попотеть), как дополнение к плагину, плагин определения установки msi сделаю после того, как свой плагин для работы с процессами закончу.
кстати еще один код определяющий, какие продукты msi установленные в системе, рядом файлик в формате ini появится.
Код: Выделить весь код
Dim installer, productcode, text, fso

Set fso = CreateObject("Scripting.FileSystemObject")
Set text = fso.CreateTextFile("msi.ini", True)
Set installer = CreateObject("WindowsInstaller.Installer")

text.writeline ("[Products]")
For Each productcode In installer.products
   text.writeline (installer.productinfo (productcode, "InstalledProductName") & " = " & productcode)
   'text.writeline (installer.productinfo (productcode, "InstalledProductName") & " v(" & installer.productinfo (productcode,"VersionString") & ") = " & productcode)
Next

-------
Спасибо ВСЕМ за то, что тратите свое время, что бы ПОМОЧЬ МНЕ.


Последний раз редактировалось kotkovets, 27-05-2011 в 17:24.


Отправлено: 16:46, 27-05-2011 | #151