检测已安装程序名称版本号及版本名称

'检测已安装的CAD版本（检测注册表信息） Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '软件安装注册表根结点 其它程序也是类似的 Dim key As Global.Microsoft.Win32.RegistryKey = Global.Microsoft.Win32.Registry.LocalMachine _ .OpenSubKey("Software\Autodesk\AutoCAD") 'AutoCAD软件安装注册表路径 Dim subKeyNames As String() = key.GetSubKeyNames '获取所有版本列表名称（所有子项名称） '如果只检测是否已经安装CAD，只要判断subKeyNames 元素个数就可以了(>0) 没有安装(=0) MessageBox.Show("已安装AutoCAD版本数量 " & subKeyNames.Length) '以下是输出CAD版本相应信息 Dim str As String = "" For Each str In subKeyNames MessageBox.Show("版本号 " & str) '版本号 如：AutoCAD 2009 返回 R17.2 Dim key2 As Global.Microsoft.Win32.RegistryKey = key.OpenSubKey(str) '以只读方式检索子项 Dim strArray2 As String() = key2.GetSubKeyNames '获取子项数组 Dim str2 As String = "" For Each str2 In strArray2 Dim key3 As Global.Microsoft.Win32.RegistryKey = key2.OpenSubKey(str2) Dim str3 As String = key3.GetValue("ProductName").ToString '版本名称 MessageBox.Show("版本名称 " & str3) '版本名称 如：str=R17.2 返回 AutoCAD 2009 Next Next End Sub