检测已安装程序名称版本号及版本名称
'检测已安装的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("SoftwareAutodeskAutoCAD") '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 End Sub
文件大小：70.88KB
评论区