如何在Inno Setup中复制一处的所有注册表项至另一位置？

Inno Setup没有内置的批量复制注册表项命令，需要通过自定义Pascal脚本实现递归复制，以下是具体步骤：

1. 添加注册表复制核心函数 #

在安装脚本的[Code]段中，添加递归复制注册表项的函数，该函数会复制目标项的所有值及子项：

procedure CopyRegistryKey(const RootKey: Integer; const SourcePath, DestPath: string);
var
  SourceKey, DestKey: Integer;
  ValueCount, MaxValueNameLen, MaxValueDataLen: Integer;
  SubKeyCount, MaxSubKeyLen: Integer;
  SecurityDescriptorSize: Integer;
  LastWriteTime: TFileTime;
  I: Integer;
  ValueName: string;
  ValueData: string;
  ValueType: DWORD;
  SubKeyName: string;
begin
  // 打开源注册表项，失败则退出
  if RegOpenKeyEx(RootKey, SourcePath, 0, KEY_READ, SourceKey) <> ERROR_SUCCESS then
    Exit;

  try
    // 创建目标注册表项（不存在则新建），失败则退出
    if RegCreateKeyEx(RootKey, DestPath, 0, '', REG_OPTION_NON_VOLATILE, KEY_WRITE, nil, DestKey, nil) <> ERROR_SUCCESS then
      Exit;

    try
      // 获取源项的基本信息（值数量、子项数量等）
      RegQueryInfoKey(SourceKey, nil, nil, nil, @SubKeyCount, @MaxSubKeyLen, nil, @ValueCount, @MaxValueNameLen, @MaxValueDataLen, @SecurityDescriptorSize, @LastWriteTime);

      // 复制当前项的所有值
      for I := 0 to ValueCount - 1 do
      begin
        SetLength(ValueName, MaxValueNameLen + 1);
        SetLength(ValueData, MaxValueDataLen);
        if RegEnumValue(SourceKey, I, PChar(ValueName), @MaxValueNameLen, nil, @ValueType, PByte(ValueData), @MaxValueDataLen) = ERROR_SUCCESS then
        begin
          SetLength(ValueName, StrLen(PChar(ValueName)));
          SetLength(ValueData, MaxValueDataLen);
          RegSetValueEx(DestKey, PChar(ValueName), 0, ValueType, PByte(ValueData), MaxValueDataLen);
        end;
      end;

      // 递归复制所有子项
      for I := 0 to SubKeyCount - 1 do
      begin
        SetLength(SubKeyName, MaxSubKeyLen + 1);
        if RegEnumKeyEx(SourceKey, I, PChar(SubKeyName), @MaxSubKeyLen, nil, nil, nil, @LastWriteTime) = ERROR_SUCCESS then
        begin
          SetLength(SubKeyName, StrLen(PChar(SubKeyName)));
          CopyRegistryKey(RootKey, SourcePath + '\' + SubKeyName, DestPath + '\' + SubKeyName);
        end;
      end;
    finally
      RegCloseKey(DestKey);
    end;
  finally
    RegCloseKey(SourceKey);
  end;
end;

2. 在安装过程中调用函数 #

选择合适的安装阶段触发复制操作，比如在安装完成后（ssPostInstall阶段），在[Code]段中添加事件处理函数：

procedure CurStepChanged(CurStep: TSetupStep);
begin
  // 安装完成后执行复制
  if CurStep = ssPostInstall then
  begin
    // 示例：复制HKLM下的旧路径注册表项到新路径
    CopyRegistryKey(HKEY_LOCAL_MACHINE, 'SOFTWARE\YourOldKeyPath', 'SOFTWARE\YourNewKeyPath');
    
    // 如果需要操作当前用户的注册表，替换为HKEY_CURRENT_USER
    // CopyRegistryKey(HKEY_CURRENT_USER, 'Software\YourOldKeyPath', 'Software\YourNewKeyPath');
  end;
end;

3. 注意事项 #

• 权限要求：如果操作HKEY_LOCAL_MACHINE（HKLM），需要安装程序以管理员权限运行，在[Setup]段添加配置：

  PrivilegesRequired=admin
  

• 路径格式：注册表路径不要以反斜杠开头，使用SOFTWARE\XXX而非\SOFTWARE\XXX
• 32/64位适配：如果需要区分32位和64位注册表视图，可在RegOpenKeyEx和RegCreateKeyEx的权限参数中添加KEY_WOW64_32KEY（访问32位视图）或KEY_WOW64_64KEY（访问64位视图），例如：

  RegOpenKeyEx(RootKey, SourcePath, 0, KEY_READ or KEY_WOW64_32KEY, SourceKey)
  

• 错误日志：可在函数中添加Log语句记录操作细节，方便调试，比如：

  if RegOpenKeyEx(...) <> ERROR_SUCCESS then
  begin
    Log('无法打开源注册表项: ' + SourcePath);
    Exit;
  end;
  

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