取注册表时间问题给位大侠指点下

若相守卟离 · 发表于 2025-10-27 15:23:08

图片里的时间是写入注册表的时间非程序创建时的时间
这个时间在注册表那个地方记录用啥办法能读出来

许七分 · 发表于 2025-10-27 15:23:09

[color=rgba(0, 0, 0, 0.45)]根：HKEY_LOCAL_MACHINE[color=rgba(0, 0, 0, 0.45)]64位软件的注册表路径:[color=rgba(0, 0, 0, 0.85)] "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"[color=rgba(0, 0, 0, 0.45)]32位软件在64位系统中的注册表路径："SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"软后找项下的所有子项，子项下有软件的信息，其中DisplayName是软件名，InstallDate就是软件安装时间。参考如下代码：（使用了精易模块，自行导入）

变量名	类型	静态	数组	备注
Uninstall_64路径	文本型
reg	注册表操作Ex
子项数组64	文本型		0
i	整数型
软件名	文本型
软件名键1	注册表_键
软件名键2	注册表_键
句柄	整数型
安装时间键1	注册表_键
安装时间键2	注册表_键
Uninstall_32路径	文本型
子项数组32	文本型		0

Uninstall_64路径＝ “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall”
Uninstall_32路径＝ “SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall”
reg.枚举子项Ex ( #HKEY_LOCAL_MACHINE, Uninstall_64路径, 子项数组64)
reg.枚举子项Ex ( #HKEY_LOCAL_MACHINE, Uninstall_32路径, 子项数组32)
调试输出 (子项数组32)
' 64位软件

计次循环首 (取数组成员数 (子项数组64), i)

句柄＝ reg.打开键Ex ( #HKEY_LOCAL_MACHINE, Uninstall_64路径＋ “\” ＋子项数组64 [i])

如果真 (句柄 ≠ -1)

reg.读取键值Ex ( #HKEY_LOCAL_MACHINE, Uninstall_64路径＋ “\” ＋子项数组64 [i], “DisplayName”, 软件名键1)

reg.读取键值Ex ( #HKEY_LOCAL_MACHINE, Uninstall_64路径＋ “\” ＋子项数组64 [i], “InstallDate”, 安装时间键1)

调试输出 (到文本 (软件名键1.键值), 到文本 (安装时间键1.键值))

计次循环尾 ()
' 32位软件

计次循环首 (取数组成员数 (子项数组32), i)

句柄＝ reg.打开键Ex ( #HKEY_LOCAL_MACHINE, Uninstall_32路径＋ “\” ＋子项数组32 [i])

如果真 (句柄 ≠ -1)

reg.读取键值Ex ( #HKEY_LOCAL_MACHINE, Uninstall_32路径＋ “\” ＋子项数组32 [i], “DisplayName”, 软件名键2)

reg.读取键值Ex ( #HKEY_LOCAL_MACHINE, Uninstall_32路径＋ “\” ＋子项数组32 [i], “InstallDate”, 安装时间键2)

调试输出 (到文本 (软件名键2.键值), 到文本 (安装时间键2.键值))

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.局部变量 Uninstall_64路径, 文本型<br />
.局部变量 reg, 注册表操作Ex<br />
.局部变量 子项数组64, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
.局部变量 软件名, 文本型<br />
.局部变量 软件名键1, 注册表_键<br />
.局部变量 软件名键2, 注册表_键<br />
.局部变量 句柄, 整数型<br />
.局部变量 安装时间键1, 注册表_键<br />
.局部变量 安装时间键2, 注册表_键<br />
.局部变量 Uninstall_32路径, 文本型<br />
.局部变量 子项数组32, 文本型, , "0"<br />
<br />
Uninstall_64路径 ＝ “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall”<br />
Uninstall_32路径 ＝ “SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall”<br />
reg.枚举子项Ex (#HKEY_LOCAL_MACHINE, Uninstall_64路径, 子项数组64)<br />
reg.枚举子项Ex (#HKEY_LOCAL_MACHINE, Uninstall_32路径, 子项数组32)<br />
调试输出 (子项数组32)<br />
' 64位软件<br />
.计次循环首 (取数组成员数 (子项数组64), i)<br />
    句柄 ＝ reg.打开键Ex (#HKEY_LOCAL_MACHINE, Uninstall_64路径 ＋ “\” ＋ 子项数组64 <i>)<br />
    .如果真 (句柄 ≠ -1)<br />
        reg.读取键值Ex (#HKEY_LOCAL_MACHINE, Uninstall_64路径 ＋ “\” ＋ 子项数组64 <i>, “DisplayName”, 软件名键1)<br />
        reg.读取键值Ex (#HKEY_LOCAL_MACHINE, Uninstall_64路径 ＋ “\” ＋ 子项数组64 <i>, “InstallDate”, 安装时间键1)<br />
        调试输出 (到文本 (软件名键1.键值), 到文本 (安装时间键1.键值))<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
' 32位软件<br />
.计次循环首 (取数组成员数 (子项数组32), i)<br />
    句柄 ＝ reg.打开键Ex (#HKEY_LOCAL_MACHINE, Uninstall_32路径 ＋ “\” ＋ 子项数组32 <i>)<br />
    .如果真 (句柄 ≠ -1)<br />
        reg.读取键值Ex (#HKEY_LOCAL_MACHINE, Uninstall_32路径 ＋ “\” ＋ 子项数组32 <i>, “DisplayName”, 软件名键2)<br />
        reg.读取键值Ex (#HKEY_LOCAL_MACHINE, Uninstall_32路径 ＋ “\” ＋ 子项数组32 <i>, “InstallDate”, 安装时间键2)<br />
        调试输出 (到文本 (软件名键2.键值), 到文本 (安装时间键2.键值))<br />
    .如果真结束<br />
<br />
.计次循环尾 ()