Delphi 12 64位Win11环境下无法读取系统注册表Path求助

针对你遇到的能读取用户Path但无法读取系统Path的问题，结合你的操作背景，核心问题大概率出在注册表访问的位数匹配、值类型读取方式或者权限细节配置上，以下是具体排查和解决步骤：

1. 确保访问64位注册表分支 #

在64位Windows系统中，即使是64位程序，也可能需要显式指定访问64位注册表分支（避免意外重定向）。打开注册表时，在权限参数中加入KEY_WOW64_64KEY：

Reg := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);

如果你的程序是32位编译目标，这个参数是必须的——否则会被系统重定向到HKLM\SOFTWARE\WOW6432Node下的对应路径，自然看不到系统Path的值。

2. 用正确方法读取系统Path值 #

系统Path在注册表中存储为REG_EXPAND_SZ类型（包含%SystemRoot%这类可扩展环境变量），如果用ReadString读取会导致失败或结果异常，必须使用ReadExpandString方法：

if Reg.ValueExists('Path') then
  SystemPath := Reg.ReadExpandString('Path');

3. 验证权限配置的完整性 #

管理员权限不代表拥有所有注册表访问权限，打开注册表时显式组合KEY_READ与KEY_QUERY_VALUE（虽然后者包含在KEY_READ中，但显式指定可避免潜在的权限继承问题）：

Reg := TRegistry.Create(KEY_READ or KEY_QUERY_VALUE or KEY_WOW64_64KEY);

4. 排除CurrentControlSet重定向问题 #

CurrentControlSet是系统符号链接，指向当前活动的控制集（比如ControlSet001），可以直接尝试打开具体控制集路径验证：

if Reg.OpenKeyReadOnly('SYSTEM\ControlSet001\Control\Session Manager\Environment') then

如果能读取到值，说明CurrentControlSet的重定向可能存在异常，可通过读取HKLM\SYSTEM\Select\Current键值获取实际控制集编号，再动态拼接路径。

5. 禁用UAC虚拟化（可选） #

虽然你已配置管理员权限，但UAC虚拟化可能干扰注册表访问，在Manifest中添加禁用配置：

<application xmlns="urn:schemas-microsoft-com:asm.v3">
  <windowsSettings>
    <disableUacVirtualization xmlns="urn:schemas-microsoft-com:asm.v3">true</disableUacVirtualization>
  </windowsSettings>
</application>

关键验证点 #

你提到用TRegKeyInfo查看键信息为空，执行上述步骤后重新调用Reg.GetKeyInfo，应该能看到正确的子键和值数量——这说明你之前访问的是错误的注册表分支或权限不足。

内容的提问来源于stack exchange，提问作者johnwargo