Определить установленный софт

[student-uni]

Как определить программно, установлена ли под Виндой (ХП или 2000) та или иная программа ?
Типа как в Пуск-Настройка-ПанельУправления-УстановкаУдалениеПрограмм.
Хоть идею подайте пожалуйста.
Спасибо.

[fob]

Может смотреть ключик реестра HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
вроде там установленный софт прописан. А те разделы, у которых есть значение DisplayName, видимо и отображаются в списка "Установка/Удаление программ"

[Gloom]

Код: Выделить всё


        Imports System.Management
        ...
        Dim installedSoftClass As New ManagementClass("Win32_Product")
        Dim installedSoftCollection As ManagementObjectCollection = installedSoftClass.GetInstances()

        For Each installedSoft As ManagementObject In installedSoftCollection
             System.Diagnostics.Debug.WriteLine(installedSoft.Properties("Caption").Value)
        Next