易语言无法在WIN7上写注册表怎么办啊

依然是海洋

  我的软件是要注册的，就是取硬盘码什么的算法，如果注册成功就写进注册表再销毁窗口，重新打开就读取注册表，如果存在就成功打开软件。可是在WIN7上提示已经注册成功，再打开又要注册，这该怎么办呢？怎样才能成功的写入和读取注册表，全面兼容WIN7

这是写注册表的：
[e]
写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Control\123\333\”, 到整数 (取十六进制文本 (取屏幕宽度 () × 20) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 200) ＋ 取十六进制文本 (取磁盘总空间 () × 30) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 210) ＋ 取十六进制文本 (取屏幕高度 () × 61) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 1174) ＋ 取十六进制文本 (取屏幕宽度 () × 2012)))
[/e]


这是读注册表的：
[e]
如果 (注册表 ＝ 到整数 (取十六进制文本 (取屏幕宽度 () × 20) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 200) ＋ 取十六进制文本 (取磁盘总空间 () × 30) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 210) ＋ 取十六进制文本 (取屏幕高度 () × 61) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 1174) ＋ 取十六进制文本 (取屏幕宽度 () × 2012)))
[/e]

jixun66

海洋123 发表于 2011-12-15 00:14
你好，能详细的给我说说么。

[e]

.版本 2

.子程序 给程序添加UAC信息, 整数型, 公开
.参数 文件名, 文本型, , 要添加UAC信息的文件名
.局部变量 资源句柄, 整数型

资源句柄 ＝ 开始更新资源 (文件名, 假)
.判断开始 (资源句柄 ＝ 0)  ' 加载文件失败
    返回 (1)
.判断 (更新资源 (资源句柄, 24, 1, 0, 到字节集 (#UAC), 取字节集长度 (到字节集 (#UAC))) ＝ 假)  ' 添加UAC信息失败
    返回 (2)
.判断 (结束更新资源 (资源句柄, 假) ＝ 假)  ' 保存文件失败
    返回 (3)
.默认
    返回 (0)  ' 更新成功
.判断结束


[/e]
然后在常量表添加一个叫做UAC的新长文本变量，内容是：

1. 
   
2. <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
   
3. <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
   
4. <assemblyIdentity name="E.App" processorArchitecture="x86" version="5.1.0.0" type="win32"/>
   
5.   <dependency>
   
6.    <dependentAssembly>
   
7.     <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="x86" publicKeyToken="6595b64144ccf1df" language="*" />
   
8.    </dependentAssembly>
   
9.   </dependency>
   
10.   <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    
11.   <security>
    
12.    <requestedPrivileges>
    
13.     <requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
    
14.    </requestedPrivileges>
    
15.   </security>
    
16. </trustInfo>
    
17. </assembly>
    

复制代码

然后新建个程序，代码填

1. 给程序添加UAC信息 (“文件路径”)

复制代码

就行了。

PS：跪了..代码提交了好多次了..

依然是海洋

额，怎么是这样的。不显示，只有复制...

q1051278389

那个易语言代码必须包含子程序名称，例如
. 版本2
.子程序 XXXX ,整数型 ,公开
写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Control\123\333\”, 到整数 (取十六进制文本 (取屏幕宽度 () × 20) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 200) ＋ 取十六进制文本 (取磁盘总空间 () × 30) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 210) ＋ 取十六进制文本 (取屏幕高度 () × 61) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 1174) ＋ 取十六进制文本 (取屏幕宽度 () × 2012)))
[e]
. 版本2
.子程序 XXXX ,整数型 ,公开
写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Control\123\333\”, 到整数 (取十六进制文本 (取屏幕宽度 () × 20) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 200) ＋ 取十六进制文本 (取磁盘总空间 () × 30) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 210) ＋ 取十六进制文本 (取屏幕高度 () × 61) ＋ 取十六进制文本 (到整数 (取文本右边 (到文本 (取硬盘特征字 ()), 取文本长度 (到文本 (取硬盘特征字 ())) － 1)) ＋ 1174) ＋ 取十六进制文本 (取屏幕宽度 () × 2012)))
[/e]

依然是海洋

使用载入子程序就可以正常吗？

依然是海洋

q1051278389 发表于 2011-12-14 23:55
那个易语言代码必须包含子程序名称，例如
. 版本2
.子程序 XXXX ,整数型 ,公开

你好，请问下读注册表的也要用子程序么？

jixun66

添加申请UAC权限的XML..明显的权限问题..

依然是海洋

jixun66 发表于 2011-12-15 00:11
添加申请UAC权限的XML..明显的权限问题..

你好，能详细的给我说说么。

117013315

右键单击【易语言5.1】图标，选择 以管理员身份运行 ，打开易源码调试看看有没有OK？？。。搞定

依然是海洋

jixun66 发表于 2011-12-15 00:39
然后在常量表添加一个叫做UAC的新长文本变量，内容是：就行了。

你好，你那办法测试不行，我试过右键以管理员身份运行也一样