读取环境变量的问题

aipca

  

调试输出 (读环境变量 (“ProgramFiles”), 读环境变量 (“ProgramFiles(x86)”), 系统_读环境变量 (“%COMMONPROGRAMFILES%”), 系统_读环境变量 (“%COMMONPROGRAMFILES(x86)%”))

调试输出 (读环境变量 (“ProgramFiles”), 读环境变量 (“ProgramFiles(x86)”), 系统_读环境变量 (“%COMMONPROGRAMFILES%”), 系统_读环境变量 (“%COMMONPROGRAMFILES(x86)%”))

奇奇怪怪的 64位系统下，用核心库和精易库，读出来的环境变量，结果都是X86的地址，64位的地址则取不到，用批处理调用环境变量都能正确显示，在运行里也能分别直达正确地址。这是啥问题？


补充内容 (2025-3-31 10:06):
分类，选的易语言 咋变成了WEB相关…… 手滑么

补充内容 (2025-3-31 19:59):
调试输出 (系统_读环境变量 (“%ProgramW6432%”),  系统_读环境变量 (“%CommonProgramW6432%”)
补个解决方案，原理不详

算法艺术家

aipca 发表于 2025-3-31 19:45
和权限无关的，而且我三台机子都是administrator管理员帐户，程序也开了UAC

刚才用虚拟机试了一下 WIN7 64位  也能分出来
* Windows 7
* “ProgramFiles” | “ProgramFiles(x86)”

补充内容 (2025-3-31 19:52):
但是核心库的分不出来

算法艺术家

  

子程序名	返回值类型	公开	备 注
修改环境变量			修改某个变量的某个值 添加或删除
参数名	类 型	参考	可空	数组	备 注
添加或删除	逻辑型				真添加 假删除
变量名	文本型				PATH
变量值	文本型				C:\Windows\DRV\ba
用户或系统变量	逻辑型				真用户，假系统

变量名	类 型	静态	数组	备 注
类_环境存取	类_环境存取
原变量	文本型
分割原变量组	文本型		0
i	整数型
新变量	文本型

原变量 ＝ 类_环境存取.读环境变量 (用户或系统变量, 变量名)
调试输出 (“原变量：”, 原变量)
判断 (添加或删除 ＝ 真)
如果真 (寻找文本s (原变量, 变量值 ＋ “;”) ≠ -1)  ' 已经存在，直接返回
返回 ()
新变量 ＝ 变量值 ＋ “;” ＋ 原变量


如果真 (寻找文本s (原变量, 变量值 ＋ “;”) ＝ -1)  ' 不存在，直接返回
返回 ()
分割原变量组 ＝ 分割文本 (原变量, “;”, )
计次循环首 (取数组成员数 (分割原变量组), i)
如果真 (寻找文本s (分割原变量组 [i], 变量值, ) ≠ -1)
到循环尾 ()

新变量 ＝ 新变量 ＋ 分割原变量组 [i] ＋ “;”
计次循环尾 ()

类_环境存取.写环境变量 (用户或系统变量, 变量名, 新变量)
' 运行 (“setx PATH ” ＋ #引号 ＋ 新变量 ＋ #引号 ＋ “ /m”, 假, 1)
' setx PATH "C:\Windows\DRV\ba;C:\Windows\DRV\bb;" /m
调试输出 (“改后变量：”, 类_环境存取.读环境变量 (用户或系统变量, 变量名))
返回 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 修改环境变量, , 公开, 修改某个变量的某个值 添加或删除<br /> .参数 添加或删除, 逻辑型, , 真添加 假删除<br /> .参数 变量名, 文本型, , PATH<br /> .参数 变量值, 文本型, , C:\Windows\DRV\ba<br /> .参数 用户或系统变量, 逻辑型, , 真用户，假系统<br /> .局部变量 类_环境存取, 类_环境存取<br /> .局部变量 原变量, 文本型<br /> .局部变量 分割原变量组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 新变量, 文本型<br /> <br /> 原变量 ＝ 类_环境存取.读环境变量 (用户或系统变量, 变量名)<br /> 调试输出 (“原变量：”, 原变量)<br /> .判断开始 (添加或删除 ＝ 真)<br />     .如果真 (寻找文本s (原变量, 变量值 ＋ “;”) ≠ -1)  ' 已经存在，直接返回<br />         返回 ()<br />     .如果真结束<br />     新变量 ＝ 变量值 ＋ “;” ＋ 原变量<br /> .默认<br /> <br />     .如果真 (寻找文本s (原变量, 变量值 ＋ “;”) ＝ -1)  ' 不存在，直接返回<br />         返回 ()<br />     .如果真结束<br />     分割原变量组 ＝ 分割文本 (原变量, “;”, )<br />     .计次循环首 (取数组成员数 (分割原变量组), i)<br />         .如果真 (寻找文本s (分割原变量组 <i>, 变量值, ) ≠ -1)<br />             到循环尾 ()<br />         .如果真结束<br /> <br />         新变量 ＝ 新变量 ＋ 分割原变量组 <i> ＋ “;”<br />     .计次循环尾 ()<br /> .判断结束<br /> <br /> 类_环境存取.写环境变量 (用户或系统变量, 变量名, 新变量)<br /> <br /> ' 运行 (“setx PATH ” ＋ #引号 ＋ 新变量 ＋ #引号 ＋ “ /m”, 假, 1)<br /> ' setx PATH "C:\Windows\DRV\ba;C:\Windows\DRV\bb;" /m<br /> <br /> 调试输出 (“改后变量：”, 类_环境存取.读环境变量 (用户或系统变量, 变量名))<br /> 返回 ()

aipca

算法艺术家 发表于 2025-3-31 18:13
[e=3].版本 2
.支持库 spec

大哥，你这是修改或是增加一个变量，我是想知道读取的系统变量，为啥两者会相同，是哪里出了问题？

算法艺术家

aipca 发表于 2025-3-31 19:15
大哥，你这是修改或是增加一个变量，我是想知道读取的系统变量，为啥两者会相同，是哪里出了问题？ ...

那你没用 类_环境存取 试试，我之前用这个挺好使

aipca

算法艺术家 发表于 2025-3-31 19:22
那你没用 类_环境存取 试试，我之前用这个挺好使

试过，精易的两种 核心的一种 三种全试过，在WIN10 X64下全失败

算法艺术家

我就是WIN10 64位 LTSC
调试输出 (系统_读环境变量 (“ProgramFiles”), 系统_读环境变量 (“ProgramFiles(x86)”))
“ProgramFiles” | “ProgramFiles(x86)”  这个俩目录能区分出来

aipca

算法艺术家 发表于 2025-3-31 19:40
我就是WIN10 64位 LTSC
调试输出 (系统_读环境变量 (“ProgramFiles”), 系统_读环境变量 (“ProgramFiles( ...

我是WIN10 Enterprise X64 和WIN11 LTSC X64 都不行，又开了移动的云电脑也是WIN10 XP的 同样不行…… 见鬼了

算法艺术家

aipca 发表于 2025-3-31 19:42
我是WIN10 Enterprise X64 和WIN11 LTSC X64 都不行，又开了移动的云电脑也是WIN10 XP的 同样 ...

确实神奇，提提权限试试，应该是跟权限没有关系。

aipca

算法艺术家 发表于 2025-3-31 19:44
确实神奇，提提权限试试，应该是跟权限没有关系。

和权限无关的，而且我三台机子都是administrator管理员帐户，程序也开了UAC