API枚举已安装的软件列表/开机启动项

.判断循环首 (API_RegEnumKey (注册表句柄, n, 缓冲区, 256) ＝ 0)
软件名称 ＝ 取文本注册项 (#本地机器, 注册表路径 ＋ 缓冲区 ＋ “\DisplayName”, )
安装目录 ＝ 取文本注册项 (#本地机器, 注册表路径 ＋ 缓冲区 ＋ “\InstallLocation”, )
.如果真 (软件名称 ≠ “” 或 安装目录 ≠ “”)
X ＝ 超级列表框_软件管理.插入表项 (, , , , , )
超级列表框_软件管理.置标题 (X, 0, 到文本 (超级列表框_软件管理.取表项数 ()))
超级列表框_软件管理.置标题 (X, 1, 软件名称)
超级列表框_软件管理.置标题 (X, 2, 取文本注册项 (#本地机器, 注册表路径 ＋ 缓冲区 ＋ “\Publisher”, “未知发布者”))
超级列表框_软件管理.置标题 (X, 3, 取文本注册项 (#本地机器, 注册表路径 ＋ 缓冲区 ＋ “\DisplayVersion”, ))
超级列表框_软件管理.置标题 (X, 4, 安装日期文本处理 (取文本注册项 (#本地机器, 注册表路径 ＋ 缓冲区 ＋ “\InstallDate”, “未知日期”)))
超级列表框_软件管理.置标题 (X, 5, 安装目录)
超级列表框_软件管理.置标题 (X, 6, 取文本注册项 (#本地机器, 注册表路径 ＋ 缓冲区 ＋ “\URLInfoAbout”, ))
超级列表框_软件管理.置标题 (X, 7, 取文本注册项 (#本地机器, 注册表路径 ＋ 缓冲区 ＋ “\UninstallString”, ))

.如果真 (置剪辑板文本 (“程序名称：” ＋ 超级列表框_软件管理.取标题 (超级列表框_软件管理.现行选中项, 1) ＋ #换行符 ＋ “软件发布者：” ＋ 超级列表框_软件管理.取标题 (超级列表框_软件管理.现行选中项, 2) ＋ #换行符 ＋ “程序安装目录：” ＋ 超级列表框_软件管理.取标题 (超级列表框_软件管理.现行选中项, 5) ＋ #换行符 ＋ “程序安装日期：” ＋ 超级列表框_软件管理.取标题 (超级列表框_软件管理.现行选中项, 4) ＋ #换行符 ＋ “程序版本：” ＋ 超级列表框_软件管理.取标题 (超级列表框_软件管理.现行选中项, 3)))
信息框 (“复制成功”, 0, )
返回 ()
.如果真结束
信息框 (“复制失败”, 0, )