关于取电脑系统变量和写系统变量的问题!

zssm

注册表路径:计算机\HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment

目录下的Path变量,需要取出这个变量判断是否存在:D:\Users\admin\Desktop\jit这个自己添加的变量,如果没有就写一个进去!然后使用CMD让它立即生效!


奈何没接触过这块,精益模块里的不会用,那位大哥指导下,



补充内容 (2025-9-28 14:05):
已搞定:               .版本 2

.子程序 _按钮1_被单击
.局部变量 路径, 文本型
.局部变量 键, 文本型

原始变量 ＝ 类_环境存取.读环境变量 (假, “Path”)
...

lipzzzz

.版本 2
.支持库 spec



.子程序 _按钮2_被单击
.局部变量 目录, 文本型
.局部变量 目录1, 文本型
.局部变量 值, 文本型

值 ＝ “D:\Users\admin\Desktop\jit”
目录 ＝ 取文本注册项 (3, “Environment\” ＋ “Path”, )
目录1 ＝ 取文本注册项 (4, “SYSTEM\ControlSet001\Control\Session Manager\Environment\” ＋ “Path”, )
调试输出 (目录, 目录1)
.如果 (寻找文本 (目录, 值, , 假) ＝ -1)
    写注册项 (3, “Environment\” ＋ “path”, 目录 ＋ “;” ＋ 值)
    信息框 (“以增加变量值：” ＋ 值, 0, , )
.否则
    信息框 (“已有变量值”, 0, , )
.如果结束
.如果 (寻找文本 (目录1, 值, , 假) ＝ -1)
    写注册项 (4, “SYSTEM\ControlSet001\Control\Session Manager\Environment\” ＋ “path”, 目录1 ＋ “;” ＋ 值)
    信息框 (“以增加变量值：” ＋ 值, 0, , )
.否则
    信息框 (“已有变量值”, 0, , )
.如果结束

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
目录	文本型
目录1	文本型
值	文本型

值 ＝ “D:\Users\admin\Desktop\jit”
目录 ＝ 取文本注册项 (3, “Environment\” ＋ “Path”, )
目录1 ＝ 取文本注册项 (4, “SYSTEM\ControlSet001\Control\Session Manager\Environment\” ＋ “Path”, )
调试输出 (目录, 目录1)
如果 (寻找文本 (目录, 值, , 假) ＝ -1)
写注册项 (3, “Environment\” ＋ “path”, 目录 ＋ “;” ＋ 值)
信息框 (“以增加变量值：” ＋ 值, 0, , )
信息框 (“已有变量值”, 0, , )
如果 (寻找文本 (目录1, 值, , 假) ＝ -1)
写注册项 (4, “SYSTEM\ControlSet001\Control\Session Manager\Environment\” ＋ “path”, 目录1 ＋ “;” ＋ 值)
信息框 (“以增加变量值：” ＋ 值, 0, , )
信息框 (“已有变量值”, 0, , )

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 目录, 文本型<br /> .局部变量 目录1, 文本型<br /> .局部变量 值, 文本型<br /> <br /> 值 ＝ “D:\Users\admin\Desktop\jit”<br /> 目录 ＝ 取文本注册项 (3, “Environment\” ＋ “Path”, )<br /> 目录1 ＝ 取文本注册项 (4, “SYSTEM\ControlSet001\Control\Session Manager\Environment\” ＋ “Path”, )<br /> 调试输出 (目录, 目录1)<br /> .如果 (寻找文本 (目录, 值, , 假) ＝ -1)<br />     写注册项 (3, “Environment\” ＋ “path”, 目录 ＋ “;” ＋ 值)<br />     信息框 (“以增加变量值：” ＋ 值, 0, , )<br /> .否则<br />     信息框 (“已有变量值”, 0, , )<br /> .如果结束<br /> .如果 (寻找文本 (目录1, 值, , 假) ＝ -1)<br />     写注册项 (4, “SYSTEM\ControlSet001\Control\Session Manager\Environment\” ＋ “path”, 目录1 ＋ “;” ＋ 值)<br />     信息框 (“以增加变量值：” ＋ 值, 0, , )<br /> .否则<br />     信息框 (“已有变量值”, 0, , )<br /> .如果结束

frankiy

不用判断，直接导入。（重复写入键值没有任何影响）

1，保存你的注册表导入文件（比如 123.reg），如果不知道怎么写，就手动导出一个，改成成自己要的。

2，DOS命令：  regedit  路径\123.reg /s  (/s :静默模式)     ，

3，用命令： 系统_取DOS执行结果 ()  来执行命令。


补充内容 (2025-9-28 12:58):
刷新全局变量用 DOS 命令：   set PATH=c:     执行后即可刷新

zssm

frankiy 发表于 2025-9-28 12:55
不用判断，直接导入。（重复写入键值没有任何影响）

1，保存你的注册表导入文件（比如 123.reg），如果不 ...

导出的注册表内容是二进制

cunanhai

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
注册表	注册表操作

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
路径	文本型
键	文本型
值	文本型

路径 ＝ “HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment”
键 ＝ “Path”
值 ＝ “D:\Users\admin\Desktop\jit”
如果真 (注册表.取字符串值 (路径, 键) ≠ 值)
注册表.写字符串值 (路径, 键, 值)
注册表.刷新项 (路径)
返回 (0)  ' 可以根据您的需要返回任意数值

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 注册表, 注册表操作<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 路径, 文本型<br /> .局部变量 键, 文本型<br /> .局部变量 值, 文本型<br /> <br /> 路径 ＝ “HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment”<br /> 键 ＝ “Path”<br /> 值 ＝ “D:\Users\admin\Desktop\jit”<br /> <br /> .如果真 (注册表.取字符串值 (路径, 键) ≠ 值)<br />     注册表.写字符串值 (路径, 键, 值)<br />     注册表.刷新项 (路径)<br /> .如果真结束<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

精易模块

zssm

cunanhai 发表于 2025-9-28 13:04
[e=0].版本 2

.程序集 程序集1

为啥我没注册表这个命令

zssm

cunanhai 发表于 2025-9-28 13:04
[e=0].版本 2

.程序集 程序集1

还有这个会覆盖已有的所有变量,

熬夜

https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14718448

frankiy

zssm 发表于 2025-9-28 13:03
导出的注册表内容是二进制

导出的注册表是reg格式，可以直接用记事本编辑。

cunanhai

zssm 发表于 2025-9-28 13:12
还有这个会覆盖已有的所有变量,

注册表.写字符串值 (路径, 键, 值)

路径 和键 你可以自己定义   


注册表这个是精易模块里面的 在程序集变量