VB仿WINDOWS 卸载程序获取已安装软件列表

Posted 2023-03-27

只需要获取已安装程序名列表即可，不需要获取图标啊、版本啊、路径啊什么的！
请提供具体演示代码示例！万分感谢，100分奉上！
不要拷贝网上搜索的答案，谢谢合作！

Const HKLM = &H80000002
uninst = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall"
Set oReg = GetObject("winmgmts:\\\\.\\root\\DEFAULT:StdRegProv")
oReg.EnumKey HKLM, uninst, ks
For Each k In ks
  If Left(k, 2) <> "KB" Then
    If oReg.getStringValue(HKLM, uninst & "\\" & k, "DisplayName", v) = 0 Then
      Print v
    End If
  End If
Next

参考技术A 给你个现成的演示代码 http://www.codesky.net/showhtml/14681.htm
解压密码：codesky.net
那网页上标注的有解压密码，通过注册表来读取的。

windows下如何取得完整的已安装程序列表

参考技术A 用命令行执行wmic product ，要想获得某些属性可以在后面加上get name/version等
也就是wmic product get name version 参考技术B 开始---控制面板---程序和功能--列表里是你所安装的软件程序。 参考技术C 进入控制面板——卸载程序，会看到列表。