Delphi 导出 HKEY_CURRENT_USER 键不起作用 - 结果文件为空

Question

我正在尝试使用 TRegistry.SaveKey 或 RegSaveKey 函数导出注册表项，但没有成功。我得到的只是一个空文件 0 字节。我在网上看到过例子，似乎没有人在 Windows10 上工作。

  reg := TRegistry.Create;

  reg.RootKey := HKEY_CURRENT_USER;
  reg.Access := KEY_ALL_ACCESS;

  if reg.OpenKey('\Software\MyCompanyName\MyApplication\', True) then
  begin
    reg.WriteInteger('background', Self.Color);

    reg.SaveKey('HKEY_CURRENT_USER\Software\MyCompanyName\MyApplication', 'test.txt'); //not working
    RegSaveKey(reg.CurrentKey, 'test.reg', nil); //creates empty file
  end;
  reg.CloseKey;
  reg.Free;

此外，如果我从 RegEdit 中提取现有密钥，然后尝试使用 TRegistry.LoadKey 或 RegLoadKey 将其加载到应用程序中，则不会发生任何事情

我在运行它的机器上确实拥有管理员权限。

有熟悉这个问题的人吗？

Answer 1

从文档RegSaveKey：

调用进程必须启用 SE_BACKUP_NAME 权限。

我的猜测是RegSaveKey返回一个值而不是ERROR_SUCCESS. 您的代码不检查。

也可以看看：

RegSaveKey 返回 ERROR_PRIVILEGE_NOT_HELD

另一件要检查的事情是在您尝试保存之前目标文件不存在，否则该功能将失败（文档中也提到了这一点），并且显然您对该文件位置具有写入权限。