
检查已安装程序的名称、版本号及版本详情
5星
- 浏览量: 0
- 大小:None
- 文件类型:RAR
简介:
本工具用于快速查看系统中所有已安装软件的详细信息,包括名称、版本号等关键数据,帮助用户轻松掌握计算机软硬件配置状况。
以下是检测已安装的CAD版本(通过检查注册表信息)的方法:
```vb
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
获取软件安装注册表根结点,此处以AutoCAD为例。
Dim key As Global.Microsoft.Win32.RegistryKey = Global.Microsoft.Win32.Registry.LocalMachine.OpenSubKey(SOFTWARE\Autodesk\AutoCAD)
获取所有版本列表名称(即获取子项名称)
Dim subKeyNames As String() = key.GetSubKeys()
如果只检测是否已经安装了CAD,可以判断subKeyNames的元素个数:如果大于0,则表示已安装;否则未安装。
MessageBox.Show(已安装AutoCAD版本数量: & subKeyNames.Length)
输出每个CAD版本的信息
For Each str In subKeyNames
显示当前处理的版本号,例如R17.2
MessageBox.Show(版本号: & str)
Dim key2 As Global.Microsoft.Win32.RegistryKey = key.OpenSubKey(str)
获取子项数组
Dim strArray2 As String() = key2.GetSubKeys()
For Each str2 In strArray2
打开当前子键以只读方式访问
Dim key3 As Global.Microsoft.Win32.RegistryKey = key2.OpenSubKey(str2)
获取版本名称,例如AutoCAD 2009
Dim str3 As String = key3.GetValue(ProductName).ToString()
MessageBox.Show(版本名称: & str3)
Next
Next
End Sub
```
这段代码通过遍历注册表中的特定路径来检测安装的AutoCAD版本,并输出每个已安装版本的具体信息。
全部评论 (0)


