开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 96|回复: 4
收起左侧

[易语言] 注册表64

[复制链接]
结帖率:66% (31/47)
发表于 前天 02:37 | 显示全部楼层 |阅读模式   广东省惠州市
9精币
假设不管是否是64位还是32位  直接写详细注册表路径  


HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\111   比如这里 32位地址

HKEY_LOCAL_MACHINE\SOFTWARE\111   比如这里 64位地址

有没有直接设置可以 无视32 或 64  直接强制写详细注册表路径 就行  直接强制关闭文件重定向?

还有个疑问  除了上面提到的 还有那些位置区分32 和64





回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳
结帖率:100% (8/8)

签到天数: 26 天

发表于 前天 08:42 | 显示全部楼层   江苏省无锡市
如果是自用,知道PC是64还是32位的,直接写在代码里,如果不确定,那就要同时写32和64位两种条件。这个模块可以直接定义64位是否为真

64位注册表操作模块.zip

5.77 KB, 下载次数: 1

回复

使用道具 举报

结帖率:100% (8/8)

签到天数: 26 天

发表于 前天 08:46 | 显示全部楼层   江苏省无锡市
  
子程序名返回值类型公开备 注
_选择框_隐藏文档_被单击  
判断 (系统_是否64位操作系统 ())
判断 (选择框_隐藏文档.选中 = )
注册表_写注册项 ( #本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FolderDescriptions\{f42ee2d3-909f-4907-8871-4c22fc0bf756}\PropertyBag\ThisPCPolicy”, { 83, 104, 111, 119 }, #REG_SZ, , )
判断 (选择框_隐藏文档.选中 = )
注册表_写注册项 ( #本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FolderDescriptions\{f42ee2d3-909f-4907-8871-4c22fc0bf756}\PropertyBag\ThisPCPolicy”, { 72, 105, 100, 101 }, #REG_SZ, , )



判断 (系统_是否64位操作系统 ())
判断 (选择框_隐藏文档.选中 = )
注册表_写注册项 ( #本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FolderDescriptions\{f42ee2d3-909f-4907-8871-4c22fc0bf756}\PropertyBag\ThisPCPolicy”, { 83, 104, 111, 119 }, #REG_SZ, , )
判断 (选择框_隐藏文档.选中 = )
注册表_写注册项 ( #本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FolderDescriptions\{f42ee2d3-909f-4907-8871-4c22fc0bf756}\PropertyBag\ThisPCPolicy”, { 72, 105, 100, 101 }, #REG_SZ, , )






补个例子
回复

使用道具 举报

结帖率:66% (31/47)

签到天数: 15 天

 楼主| 发表于 前天 09:41 | 显示全部楼层   广东省惠州市
aipca 发表于 2025-3-24 08:46
[e=1].版本 2

.子程序 _选择框_隐藏文档_被单击

你这个模块我知道  其实我想知道的是 不管是否32 或者64 我直接使用详细路径 直接固定 类似  
.版本 2

.如果 (系统_是否64位 () 且 是否64位 = 真)
    .如果真 (Wow64DisableWow64FsRedirection (value))  ' 关闭文件系统转向
        .如果真 (RegOpenKeyEx (hKey, strKey, 0, 257, hSubKey) = 0)  ' #KEY_ALL_WOW64
            RegDisableReflectionKey (hSubKey)
            .如果真 (RegQueryValueEx (hSubKey, strSubkey, 0, 0, lpData, lpcbData) = 0)
                lpData = 取空白字节集 (lpcbData)
                RegQueryValueEx (hSubKey, strSubkey, 0, 0, lpData, lpcbData)
            .如果真结束
            RegEnableReflectionKey (hSubKey)
            RegCloseKey (hSubKey)
        .如果真结束
        Wow64RevertWow64FsRedirection (value)
    .如果真结束

    返回 (lpData)
.否则
    .如果真 (RegOpenKeyEx (hKey, strKey, 0, 位或 (1, 131097), hSubKey) = 0)
        .如果真 (RegQueryValueEx (hSubKey, strSubkey, 0, 0, lpData, lpcbData) = 0)
            lpData = 取空白字节集 (lpcbData)
            RegQueryValueEx (hSubKey, strSubkey, 0, 0, lpData, lpcbData)
        .如果真结束
        RegCloseKey (hSubKey)
    .如果真结束

.如果结束
返回 (lpData)
类似这段   当中的  直接只使用这节
.版本 2

    .如果真 (Wow64DisableWow64FsRedirection (value))  ' 关闭文件系统转向
        .如果真 (RegOpenKeyEx (hKey, strKey, 0, 257, hSubKey) = 0)  ' #KEY_ALL_WOW64
            RegDisableReflectionKey (hSubKey)
            .如果真 (RegQueryValueEx (hSubKey, strSubkey, 0, 0, lpData, lpcbData) = 0)
                lpData = 取空白字节集 (lpcbData)
                RegQueryValueEx (hSubKey, strSubkey, 0, 0, lpData, lpcbData)
            .如果真结束
            RegEnableReflectionKey (hSubKey)
            RegCloseKey (hSubKey)
        .如果真结束
        Wow64RevertWow64FsRedirection (value)
    .如果真结束

会有什么问题
回复

使用道具 举报

结帖率:100% (8/8)

签到天数: 26 天

发表于 前天 13:12 | 显示全部楼层   江苏省盐城市
涉及64位和32位之分,是因为他们的路径会有所不同,既然一样那就,不在wow64下,统一认为64位假
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表