打开注册表编辑器 浏览指定注册表项 (自动定位跳转)

chenyucheng

说明：打开注册表编辑器并定位到指定注册表项位置。

代码：

  

子程序名	返回值类型	公开	备 注
浏览注册表	逻辑型		打开注册表编辑器并定位到指定注册表项位置。成功返回真，失败返回假。
参数名	类 型	参考	可空	数组	备 注
项路径	文本型				例：HKEY_CURRENT_USER\Software

变量名	类 型	静态	数组	备 注
注册表编辑器路径	文本型
根项名	文本型
斜线位置	整数型
启动模式	STARTUPINFO
进程信息	进程结构
进程窗口信息	进程窗口信息

注册表编辑器路径 ＝ 取特定目录 ( #Windows安装目录 ) ＋ “regedit.exe”
如果真 (寻找文本 (注册表编辑器路径, “ ”, , 假) ≠ -1)
注册表编辑器路径 ＝ #引号 ＋ 注册表编辑器路径 ＋ #引号
根项名 ＝ 取文本注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey”, )
如果真 (根项名 ＝ “”)  ' 若注册表编辑器没有启动过（“上次查看的项路径”为空）
' 则通过启动注册表编辑器再关闭来使“上次查看的项路径”有内容。
' 运行 (注册表编辑器路径, 假, )
启动模式.cbSize ＝ 68
' -- 以下“运行程序并获取主窗口句柄”的内容参考了 https://blog.csdn.net/starlee/article/details/4861174 的 C++ 代码。 --
启动模式.dwFlags ＝ 1  ' STARTF_USESHOWWINDOW
启动模式.wShowWindow ＝ 5  ' SW_SHOW
如果 (CreateProcess (字符 (0), 注册表编辑器路径, 0, 0, 0, 0, 0, 字符 (0), 启动模式, 进程信息) ≠ 0)
' -- 查找窗口句柄开始 --
进程窗口信息.进程ID ＝ 进程信息.进程标识符
进程窗口信息.窗口句柄 ＝ 0
' 等待新进程初始化完毕
WaitForInputIdle (进程信息.进程句柄, 5000)
如果真 (取变量地址 (进程窗口信息) ＝ 0 或 指针到整数 (取变量地址 (进程窗口信息)) ＝ 0)
返回 (假)

' 查找主窗口
EnumWindows (&内部判断窗口, 指针到整数 (取变量地址 (进程窗口信息)))
' 注释：由于“取变量地址”以及“取变量数据地址”命令里面，如果提供了自定义数据类型（复合数据类型）的话，则会返回指向实际数据的指针的指针，因此还要在外面套“指针到整数”。
' 输出调试文本 (到文本 (进程窗口信息.窗口句柄))
' -- 查找窗口句柄结束 --
如果真 (进程窗口信息.窗口句柄 ＝ 0)
返回 (假)

' 发送窗口关闭消息，正常关闭程序
SendMessage (进程窗口信息.窗口句柄, 16, 0, 0)  ' 第二个参数填 16，表示关闭窗口(WM_CLOSE)
' 重新获取“上次查看的项路径”
根项名 ＝ 取文本注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey”, )
返回 (假)

斜线位置 ＝ 寻找文本 (根项名, “\”, , 假)
如果真 (斜线位置 ≠ -1)
根项名 ＝ 取文本左边 (根项名, 斜线位置 － 1)
如果真 (写注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey”, 根项名 ＋ “\” ＋ 项路径) ＝ 假)
返回 (假)
返回 (运行 (注册表编辑器路径, 假, ))  ' 后面直接用易语言自带的“运行”了，为了省事。前面用“CreateProcess”是为了获取 PID.

子程序名	返回值类型	公开	备 注
内部判断窗口	逻辑型
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
l参数	整数型

变量名	类 型	静态	数组	备 注
进程窗口	进程窗口信息
窗口进程ID	整数型

进程窗口.进程ID ＝ 指针到整数 (l参数)
进程窗口.窗口句柄 ＝ 指针到整数 (l参数 ＋ 取数据类型尺寸 ( #整数型 ))
GetWindowThreadProcessId (窗口句柄, 窗口进程ID)
如果真 (进程窗口.进程ID ＝ 窗口进程ID 且 IsWindowVisible (窗口句柄) 且 GetParent (窗口句柄) ＝ 0)
进程窗口.窗口句柄 ＝ 窗口句柄
写到内存 (进程窗口.窗口句柄, l参数 ＋ 取数据类型尺寸 ( #整数型 ), )
返回 (假)
返回 (真)

i支持库列表	支持库注释
shell	操作系统界面功能支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 shell<br /> .支持库 spec<br /> <br /> .子程序 浏览注册表, 逻辑型, 公开, 打开注册表编辑器并定位到指定注册表项位置。成功返回真，失败返回假。<br /> .参数 项路径, 文本型, , 例：HKEY_CURRENT_USER\Software<br /> .局部变量 注册表编辑器路径, 文本型<br /> .局部变量 根项名, 文本型<br /> .局部变量 斜线位置, 整数型<br /> .局部变量 启动模式, STARTUPINFO<br /> .局部变量 进程信息, 进程结构<br /> .局部变量 进程窗口信息, 进程窗口信息<br /> <br /> 注册表编辑器路径 ＝ 取特定目录 (#Windows安装目录) ＋ “regedit.exe”<br /> .如果真 (寻找文本 (注册表编辑器路径, “ ”, , 假) ≠ -1)<br />     注册表编辑器路径 ＝ #引号 ＋ 注册表编辑器路径 ＋ #引号<br /> .如果真结束<br /> 根项名 ＝ 取文本注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey”, )<br /> .如果真 (根项名 ＝ “”)  ' 若注册表编辑器没有启动过（“上次查看的项路径”为空）<br />     ' 则通过启动注册表编辑器再关闭来使“上次查看的项路径”有内容。<br /> <br />     ' 运行 (注册表编辑器路径, 假, )<br />     启动模式.cbSize ＝ 68<br />     ' -- 以下“运行程序并获取主窗口句柄”的内容参考了 https://blog.csdn.net/starlee/article/details/4861174 的 C++ 代码。 --<br />     启动模式.dwFlags ＝ 1  ' STARTF_USESHOWWINDOW<br />     启动模式.wShowWindow ＝ 5  ' SW_SHOW<br />     .如果 (CreateProcess (字符 (0), 注册表编辑器路径, 0, 0, 0, 0, 0, 字符 (0), 启动模式, 进程信息) ≠ 0)<br />         ' -- 查找窗口句柄开始 --<br /> <br />         进程窗口信息.进程ID ＝ 进程信息.进程标识符<br />         进程窗口信息.窗口句柄 ＝ 0<br /> <br />         ' 等待新进程初始化完毕<br />         WaitForInputIdle (进程信息.进程句柄, 5000)<br /> <br />         .如果真 (取变量地址 (进程窗口信息) ＝ 0 或 指针到整数 (取变量地址 (进程窗口信息)) ＝ 0)<br />             返回 (假)<br />         .如果真结束<br /> <br />         ' 查找主窗口<br />         EnumWindows (&内部判断窗口, 指针到整数 (取变量地址 (进程窗口信息)))<br />         ' 注释：由于“取变量地址”以及“取变量数据地址”命令里面，如果提供了自定义数据类型（复合数据类型）的话，则会返回指向实际数据的指针的指针，因此还要在外面套“指针到整数”。<br />         ' 输出调试文本 (到文本 (进程窗口信息.窗口句柄))<br />         ' -- 查找窗口句柄结束 --<br /> <br />         .如果真 (进程窗口信息.窗口句柄 ＝ 0)<br />             返回 (假)<br />         .如果真结束<br /> <br />         ' 发送窗口关闭消息，正常关闭程序<br />         SendMessage (进程窗口信息.窗口句柄, 16, 0, 0)  ' 第二个参数填 16，表示关闭窗口(WM_CLOSE)<br /> <br />         ' 重新获取“上次查看的项路径”<br />         根项名 ＝ 取文本注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey”, )<br />     .否则<br />         返回 (假)<br />     .如果结束<br /> <br /> .如果真结束<br /> 斜线位置 ＝ 寻找文本 (根项名, “\”, , 假)<br /> .如果真 (斜线位置 ≠ -1)<br />     根项名 ＝ 取文本左边 (根项名, 斜线位置 － 1)<br /> .如果真结束<br /> .如果真 (写注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey”, 根项名 ＋ “\” ＋ 项路径) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> 返回 (运行 (注册表编辑器路径, 假, ))  ' 后面直接用易语言自带的“运行”了，为了省事。前面用“CreateProcess”是为了获取 PID.<br /> <br /> .子程序 内部判断窗口, 逻辑型<br /> .参数 窗口句柄, 整数型<br /> .参数 l参数, 整数型<br /> .局部变量 进程窗口, 进程窗口信息<br /> .局部变量 窗口进程ID, 整数型<br /> <br /> 进程窗口.进程ID ＝ 指针到整数 (l参数)<br /> 进程窗口.窗口句柄 ＝ 指针到整数 (l参数 ＋ 取数据类型尺寸 (#整数型))<br /> GetWindowThreadProcessId (窗口句柄, 窗口进程ID)<br /> .如果真 (进程窗口.进程ID ＝ 窗口进程ID 且 IsWindowVisible (窗口句柄) 且 GetParent (窗口句柄) ＝ 0)<br />     进程窗口.窗口句柄 ＝ 窗口句柄<br />     写到内存 (进程窗口.窗口句柄, l参数 ＋ 取数据类型尺寸 (#整数型), )<br /> <br />     返回 (假)<br /> .如果真结束<br /> 返回 (真)

易语言代码文件及模块文件：已上传到附件，欢迎取用。
用法举例：
浏览注册表 (“HKEY_CURRENT_USER\Software”)

447485268

支持开源~！感谢分享

小磊88

感谢分享，很给力！nb

无名霸道

666666666666666

ZHuanR

新技能已get√

wgqxj

谢谢分享

2446789312

君九

谢谢分享

亿万

感谢分享，很给力！~

艾玛克138

感谢楼主无私奉献