注册表操作

lity2310

[color=rgba(0, 0, 0, 0.85)][backcolor=rgba(0, 0, 0, 0.04)]Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\myapp]@="URL:MyApp Protocol""URL Protocol"=""[HKEY_CLASSES_ROOT\myapp\shell][HKEY_CLASSES_ROOT\myapp\shell\open][HKEY_CLASSES_ROOT\myapp\shell\open\command]@="\"C:\\Program Files\\MyApp\\MyApp.exe\" \"%1\""有没有大神指导以上注册表操作用易语言写注册项怎么操作啊，win11系统的

爱你入骨

demo.zip (63.4 KB, 下载次数: 4)

2025-7-27 01:09 上传

点击文件名下载附件

bf001

666666666666666

kk4648

.版本 2

.子程序 写注册表
.局部变量 根键, 整数型
.局部变量 应用路径, 文本型

根键 ＝ #HKEY_CLASSES_ROOT
应用路径 ＝ “C:\Program Files\MyApp\MyApp.exe”  ' 注意修改为实际路径

' 1. 创建主项并设置默认值
写注册项 (根键, “myapp\”, “URL:MyApp Protocol”)

' 2. 添加URL Protocol标识
写注册项 (根键, “myapp\URL Protocol”, “”)

' 3. 创建命令项并设置执行路径
写注册项 (根键, “myapp\shell\open\command\”, #引号 + 应用路径 + #引号 + “ ” + #引号 + “%1” + #引号)


补充内容 (2025-7-27 01:10):
#HKEY_CLASSES_ROOT
引用精益模块就有了

2224848

  

子程序名	返回值类型	公开	备 注
写注册表

变量名	类 型	静态	数组	备 注
根键	整数型
应用路径	文本型

根键 ＝ #HKEY_CLASSES_ROOT
应用路径 ＝ "C:\Program Files\MyApp\MyApp.exe"  ' 注意：Windows 11需要实际存在此路径
' 1. 创建主项并设置默认值（对应@=""的注册表值）
写注册项 (根键, "myapp\", "URL:MyApp Protocol")
' 2. 添加URL Protocol标识（空字符串值）
写注册项 (根键, "myapp\URL Protocol", "")  ' 注意这里没有末尾反斜杠
' 3. 创建必要的中间键（虽然易语言会自动创建，但显式创建更规范）
写注册项 (根键, "myapp\shell\", "")      ' 创建shell键
写注册项 (根键, "myapp\shell\open\", "")  ' 创建open键
' 4. 设置命令项（带引号处理路径空格）
写注册项 (根键, "myapp\shell\open\command\", #引号 + 应用路径 + #引号 + " " + #引号 + "%1" + #引号 )

.版本 2<br /> <br /> .子程序 写注册表<br /> .局部变量 根键, 整数型<br /> .局部变量 应用路径, 文本型<br /> <br /> 根键 ＝ #HKEY_CLASSES_ROOT<br /> 应用路径 ＝ "C:\Program Files\MyApp\MyApp.exe"  ' 注意：Windows 11需要实际存在此路径<br /> <br /> ' 1. 创建主项并设置默认值（对应@=""的注册表值）<br /> 写注册项 (根键, "myapp\", "URL:MyApp Protocol")<br /> <br /> ' 2. 添加URL Protocol标识（空字符串值）<br /> 写注册项 (根键, "myapp\URL Protocol", "")  ' 注意这里没有末尾反斜杠<br /> <br /> ' 3. 创建必要的中间键（虽然易语言会自动创建，但显式创建更规范）<br /> 写注册项 (根键, "myapp\shell\", "")      ' 创建shell键<br /> 写注册项 (根键, "myapp\shell\open\", "")  ' 创建open键<br /> <br /> ' 4. 设置命令项（带引号处理路径空格）<br /> 写注册项 (根键, "myapp\shell\open\command\", #引号 + 应用路径 + #引号 + " " + #引号 + "%1" + #引号)

管理员权限​

  

如果真 (是否已管理员身份运行 () ＝ 假)
运行 (“cmd /c mshta vbscript:Execute(""CreateObject(""Shell.Application"").ShellExecute""""%~f0"""",,""""runas"""",1)(window.close)""”, 真, )
结束 ()

.如果真 (是否已管理员身份运行 () ＝ 假)<br />     运行 (“cmd /c mshta vbscript:Execute(""CreateObject(""Shell.Application"").ShellExecute""""%~f0"""",,""""runas"""",1)(window.close)""”, 真, )<br />     结束 ()<br /> .如果真结束

注册表重定向处理

  

如果真 (是否64位系统 ())
根键 ＝ #HKEY_CURRENT_USER
写注册项 (根键, "Software\Classes\myapp\...", ...)  ' 绕过重定向

.如果真 (是否64位系统 ())<br />     根键 ＝ #HKEY_CURRENT_USER<br />     写注册项 (根键, "Software\Classes\myapp\...", ...)  ' 绕过重定向<br /> .如果真结束

  

子程序名	返回值类型	公开	备 注
备份注册表

运行 (“cmd /c reg export HKEY_CLASSES_ROOT\myapp ” ＋ 取特定目录 ( #系统桌面 ) ＋ “\myapp_backup.reg”, 假, )

.子程序 备份注册表<br />    运行 (“cmd /c reg export HKEY_CLASSES_ROOT\myapp ” ＋ 取特定目录 (#系统桌面) ＋ “\myapp_backup.reg”, 假, )

2224848

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

写注册项 ( #HKEY_CLASSES_ROOT, "myapp\", "URL:MyApp Protocol")  ' 设置myapp默认值
写注册项 ( #HKEY_CLASSES_ROOT, "myapp\URL Protocol", "")        ' 创建URL Protocol键
写注册项 ( #HKEY_CLASSES_ROOT, "myapp\shell\")                 ' 创建shell键
写注册项 ( #HKEY_CLASSES_ROOT, "myapp\shell\open\")            ' 创建open键
写注册项 ( #HKEY_CLASSES_ROOT, "myapp\shell\open\command\", #引号 + "C:\Program Files\MyApp\MyApp.exe" + #引号 + " " + #引号 + "%1" + #引号 )  ' 设置命令行
信息框 ("注册表已成功写入！", 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br />     写注册项 (#HKEY_CLASSES_ROOT, "myapp\", "URL:MyApp Protocol")  ' 设置myapp默认值<br />     写注册项 (#HKEY_CLASSES_ROOT, "myapp\URL Protocol", "")        ' 创建URL Protocol键<br />     写注册项 (#HKEY_CLASSES_ROOT, "myapp\shell\")                 ' 创建shell键<br />     写注册项 (#HKEY_CLASSES_ROOT, "myapp\shell\open\")            ' 创建open键<br />     写注册项 (#HKEY_CLASSES_ROOT, "myapp\shell\open\command\", #引号 + "C:\Program Files\MyApp\MyApp.exe" + #引号 + " " + #引号 + "%1" + #引号)  ' 设置命令行<br />     信息框("注册表已成功写入！", 0, , )