易语言软件卸载管理器

根句柄 ＝ -2147483646 ' 1.HKEY_CLASSES_ROOT -2147483648 2. HKEY_CURRENT_USER -2147483647 3.HKEY_LOCAL_MACHINE -2147483646 4.HKEY_USERS -2147483645
打开表项 (根句柄, “Software\Microsoft\Windows\CurrentVersion\Uninstall”, 键句柄) ' 获取键句柄
枚举软件列表 ()
钩子句柄 ＝ 设置系统钩子_ (7, &钩子函数, 0, 线程ID)

.判断循环首 (结果 ＝ 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
结果 ＝ 枚举子键 (键句柄, 表项索引, 键名, 取文本长度 (键名))
.判断循环尾 ()