键名 = 取空白文本 (255)
结果 = 枚举子键 (键句柄, 表项索引, 键名, 取文本长度 (键名))
.判断循环首 (结果 = 0)
软件名 = 取文本注册项 (4, “Software\Microsoft\Windows\CurrentVersion\Uninstall\” + 键名 + “\DisplayName”, )
反安装 = 取文本注册项 (4, “Software\Microsoft\Windows\CurrentVersion\Uninstall\” + 键名 + “\UninstallString”, )
.如果真 (软件名 ≠ “”)
变量 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (变量, 0, 软件名)
.如果 (反安装 = “”)
超级列表框1.置标题 (变量, 1, “可能软件本身有卸载功能,请核对!”)
.否则
.如果 (取文本左边 (反安装, 1) = #引号)
超级列表框1.置标题 (变量, 1, 取文本中间 (反安装, 2, 取文本长度 (反安装) - 2))
.否则
超级列表框1.置标题 (变量, 1, 反安装)
.如果结束
.如果结束
.如果真结束
键名 = 取空白文本 (255)
表项索引 = 表项索引 + 1
结果 = 枚举子键 (键句柄, 表项索引, 键名, 取文本长度 (键名))
.判断循环尾 ()
下一篇 易语言助手插件新建自动保存