读取注册表读不出来,在线求解决.

期刊编辑ˇˇ

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion 右边键值中找到InstallDate

值1195873661  但是我易语言搞一直读出来的是0 在线求解决！

易易语

[e]
取数值注册项 (4, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate”, )
[/e]
这样就行了。，。。要不就是你的权限不够

天中小和尚

取文本注册项()

期刊编辑ˇˇ

天中小和尚 发表于 2013-11-8 23:33
取文本注册项()

文本注册项也弄不出来 麻烦给一个列子可以吗！

伊染年华σ泪蹒

期刊编辑ˇˇ 发表于 2013-11-9 00:13
文本注册项也弄不出来 麻烦给一个列子可以吗！

表示不清楚  坐等楼下大神帮忙吧！

Hoibben

调试输出(取数值注册项 (#本地机器, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate”, ))‘ 这个本来就是数值的，你取到的为0就很正常了，如果要变成文本的可以这样：
调试输出 (到文本 (取数值注册项 (#本地机器, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate”, ))) ‘这样就不会0了啦。。。

呵呵。。。

単鯓⒈镞

1. .版本 2
   
2. 
   
3. .子程序 _打开项, 整数型
   
4. .参数 项名称, 文本型
   
5. .参数 是否创建, 逻辑型, 可空, 默认为假:打开 真:如果项不存在则创建项
   
6. .局部变量 局_根句柄, 整数型
   
7. .局部变量 局_项句柄, 整数型
   
8. .局部变量 局_项文本, 文本型
   
9. .局部变量 局_位置, 整数型
   
10. .局部变量 b, 整数型
    
11. 
    
12. 局_位置 ＝ 寻找文本 (项名称, “\”, , 假)
    
13. 局_项文本 ＝ 取文本左边 (项名称, 局_位置 － 1)
    
14. .判断开始 (局_项文本 ＝ “HKEY_CLASSES_ROOT”)
    
15.     局_根句柄 ＝ 2147483648
    
16. .判断 (局_项文本 ＝ “HKEY_CURRENT_USER”)
    
17.     局_根句柄 ＝ 2147483649
    
18. .判断 (局_项文本 ＝ “HKEY_LOCAL_MACHINE”)
    
19.     局_根句柄 ＝ 2147483650
    
20. .判断 (局_项文本 ＝ “HKEY_USERS”)
    
21.     局_根句柄 ＝ 2147483651
    
22. .默认
    
23.     返回 (0)
    
24. .判断结束
    
25. .如果 (是否创建)
    
26.     b ＝ RegCreateKeyA (局_根句柄, 取文本右边 (项名称, 取文本长度 (项名称) － 局_位置), 局_项句柄)
    
27. .否则
    
28.     b ＝ RegOpenKeyA (局_根句柄, 取文本右边 (项名称, 取文本长度 (项名称) － 局_位置), 局_项句柄)
    
29. .如果结束
    
30. .如果真 (b ＝ 0)
    
31.     返回 (局_项句柄)
    
32. .如果真结束
    
33. 返回 (0)
    
34. 
    
35. .子程序 读注册表, 文本型, 公开, 成功返回“%USERPROFILE%\Local Settings\Temporary Internet Files”，否则返回空。
    
36. .参数 全路径注册项名, 文本型, , “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders”
    
37. .参数 键名称, 文本型, , “Cache”
    
38. .局部变量 句柄, 整数型
    
39. .局部变量 数据, 文本型
    
40. .局部变量 长度, 整数型
    
41. .局部变量 数据1, 整数型
    
42. .局部变量 根句柄, 整数型
    
43. .局部变量 类型, 整数型
    
44. 
    
45. 根句柄 ＝ _打开项 (全路径注册项名)
    
46. .如果真 (根句柄 ＝ 0)
    
47.     返回 (“”)
    
48. .如果真结束
    
49. RegQueryValueExA (根句柄, 键名称, 0, 类型, 数据, 长度)
    
50. 数据 ＝ 取空白文本 (长度)
    
51. .如果 (类型 ＝ 4)
    
52.     RegQueryValueExA_ (根句柄, 键名称, 0, 类型, 数据1, 长度)
    
53.     RegQueryValueExA_ (根句柄, 键名称, 0, 类型, 数据1, 长度)
    
54.     数据 ＝ 到文本 (数据1)
    
55. .否则
    
56.     RegQueryValueExA (根句柄, 键名称, 0, 类型, 数据, 长度)
    
57. .如果结束
    
58. RegCloseKey (根句柄)
    
59. 返回 (数据)
    
60. 
    
61. 
    
62. 
    
63. .子程序 写注册表, 逻辑型, 公开, 成功返回真，否则返回假。
    
64. .参数 全路径注册项名, 文本型, , “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders”
    
65. .参数 键名称, 文本型, , “Cache”
    
66. .参数 欲写入值, 文本型, , “%USERPROFILE%\Local Settings\Temporary Internet Files”
    
67. .参数 类型, 整数型, , 1、REG_SZ； 2、REG_EXPAND_SZ； 3、REG_BINARY； 4、REG_DWORD； 7、REG_MULTI_SZ
    
68. .局部变量 根句柄, 整数型
    
69. .局部变量 写入值, 整数型
    
70. .局部变量 b, 整数型
    
71. .局部变量 a, 字节集
    
72. 
    
73. 根句柄 ＝ _打开项 (全路径注册项名, 真)
    
74. .如果真 (根句柄 ＝ 0)
    
75.     返回 (假)
    
76. .如果真结束
    
77. .如果 (类型 ＝ 4)
    
78.     写入值 ＝ 到整数 (欲写入值)
    
79.     a ＝ 到字节集 (写入值)
    
80.     b ＝ RegSetValueExA_ (根句柄, 键名称, 0, 4, a, 取字节集长度 (a))
    
81. .否则
    
82.     b ＝ RegSetValueExA (根句柄, 键名称, 0, 类型, 欲写入值, 取文本长度 (欲写入值))
    
83. .如果结束
    
84. RegCloseKey (根句柄)
    
85. 返回 (b ＝ 0)
    
86. 
    
87. .子程序 __启动窗口_创建完毕
    
88. 
    
89. 输出调试文本 (读注册表 (“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion”, “InstallDate”))
    
90. ' 1379244211
    
91. 结束 ()
    
92. .版本 2
    
93. 
    
94. .DLL命令 RegCloseKey, 整数型, , "RegCloseKey", , 关闭注册项
    
95.     .参数 hkey, 整数型
    
96. 
    
97. .DLL命令 RegQueryValueExA, 整数型, , "RegQueryValueExA", , 取注册表项
    
98.     .参数 hKey, 整数型
    
99.     .参数 lpValueName, 文本型
    
100.     .参数 lpReserved, 整数型
     
101.     .参数 lpType, 整数型, 传址
     
102.     .参数 lpData, 文本型, 传址
     
103.     .参数 lpcbData, 整数型, 传址
     
104. 
     
105. .DLL命令 RegSetValueExA, 整数型, , "RegSetValueExA", , 写注册表项
     
106.     .参数 hKey, 整数型
     
107.     .参数 lpValueName, 文本型
     
108.     .参数 Reserved, 整数型
     
109.     .参数 dwType, 整数型
     
110.     .参数 lpData, 文本型, 传址
     
111.     .参数 cbData, 整数型
     
112. 
     
113. .DLL命令 RegQueryValueExA_, 整数型, , "RegQueryValueExA", , 取注册表项
     
114.     .参数 hKey, 整数型
     
115.     .参数 lpValueName, 文本型
     
116.     .参数 lpReserved, 整数型
     
117.     .参数 lpType, 整数型, 传址
     
118.     .参数 lpData, 整数型, 传址
     
119.     .参数 lpcbData, 整数型, 传址
     
120. 
     
121. .DLL命令 RegCreateKeyA, 整数型, , "RegCreateKeyA", , _注册表_创建项 advapi32.dll在指定的项下创建一个新项。如指定的项已经存在，那么函数会打开现有的项  零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
     
122.     .参数 hKey, 整数型, , 要打开项的句柄，或者一个标准项名
     
123.     .参数 lpSubKey, 文本型, , 欲创建的新子项。可同时创建多个项，只需用反斜杠将它们分隔开即可。例如level1\level2\newkey
     
124.     .参数 phkResult, 整数型, 传址, 指定一个变量，用于装载新子项的句柄;
     
125. 
     
126. .DLL命令 RegSetValueExA_, 整数型, , "RegSetValueExA", , 写注册表项
     
127.     .参数 hKey, 整数型
     
128.     .参数 lpValueName, 文本型
     
129.     .参数 Reserved, 整数型
     
130.     .参数 dwType, 整数型
     
131.     .参数 lpData, 字节集, 传址
     
132.     .参数 cbData, 整数型
     
133. 
     
134. .DLL命令 RegOpenKeyA, 整数型, "advapi32.dll", "RegOpenKeyA", , _注册表_打开项 打开一个现有的注册表项  零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
     
135.     .参数 hKey, 整数型, , 一个已打开项的句柄，或指定一个标准项名
     
136.     .参数 lpSubKey, 文本型, , 要打开的项名
     
137.     .参数 phkResult, 整数型, 传址, 指定一个变量，用于装载（保存）打开注册表项的一个句柄;
     

复制代码

本人的读写注册表模块源码

七岁小毛猴

楼上全中，尔等路过