解决Inno Setup中.reg文件安装后卸载时删除所有注册表项（含空父键）的方案 #

我来帮你搞定这个问题——不用复制生成卸载.reg，也不用手动维护[Registry]区段，完全基于原.reg文件实现完整的注册表清理，包括那些空的上层父键。

核心思路

安装时解析你的CliReg.reg文件，提取所有注册表项的完整路径并记录下来；卸载时遍历这些路径逐个删除，再递归检查并删除空的父键，直到根键为止。

具体实现步骤

1. 安装阶段：解析.reg文件并记录注册表路径

首先添加一个Pascal函数用来从.reg文件中提取所有注册表项路径，然后在安装完成后保存这些路径到本地文件，同时可以删掉原.reg文件节省空间。

// 从.reg文件中提取所有注册表项路径
function ExtractRegKeysFromRegFile(const RegFilePath: string; var RegKeys: TStringList): Boolean;
var
  SL: TStringList;
  I: Integer;
  Line: string;
  KeyStart, KeyEnd: Integer;
begin
  Result := False;
  RegKeys := TStringList.Create;
  SL := TStringList.Create;
  try
    SL.LoadFromFile(RegFilePath);
    for I := 0 to SL.Count - 1 do
    begin
      Line := Trim(SL[I]);
      // 匹配以[HKEY_开头的注册表项行
      if Pos('[HKEY_', Line) = 1 then
      begin
        KeyStart := 2; // 跳过开头的[
        KeyEnd := Pos(']', Line) - 1;
        if KeyEnd > KeyStart then
        begin
          RegKeys.Add(Copy(Line, KeyStart, KeyEnd - KeyStart + 1));
        end;
      end;
    end;
    Result := RegKeys.Count > 0;
  finally
    SL.Free;
  end;
end;

// 安装完成后执行解析和记录操作
procedure CurStepChanged(CurStep: TSetupStep);
var
  RegFilePath: string;
  RegKeys: TStringList;
  SavePath: string;
begin
  if CurStep = ssPostInstall then
  begin
    RegFilePath := ExpandConstant('{app}\CliReg.reg');
    SavePath := ExpandConstant('{app}\RegKeysToDelete.txt');
    if ExtractRegKeysFromRegFile(RegFilePath, RegKeys) then
    begin
      RegKeys.SaveToFile(SavePath);
      DeleteFile(RegFilePath); // 原.reg文件已无用，直接删除
    end;
    RegKeys.Free;
  end;
end;

2. 卸载阶段：删除注册表项并清理空父键

添加递归删除空父键的函数，然后在卸载过程中读取记录的路径，逐个删除并清理上层空键。

// 递归删除空的父注册表项
function DeleteEmptyParentKey(const FullKeyPath: string): Boolean;
var
  ParentPath: string;
  SlashPos: Integer;
  RootKey: HKEY;
  SubPath: string;
  RegResult: Integer;
begin
  Result := False;
  // 拆分根键和子路径
  SlashPos := Pos('\', FullKeyPath);
  if SlashPos = 0 then Exit; // 已到根键，停止递归
  
  // 确定根键类型
  if Copy(FullKeyPath, 1, SlashPos-1) = 'HKEY_LOCAL_MACHINE' then RootKey := HKEY_LOCAL_MACHINE
  else if Copy(FullKeyPath, 1, SlashPos-1) = 'HKEY_CURRENT_USER' then RootKey := HKEY_CURRENT_USER
  else if Copy(FullKeyPath, 1, SlashPos-1) = 'HKEY_CLASSES_ROOT' then RootKey := HKEY_CLASSES_ROOT
  else Exit;

  ParentPath := Copy(FullKeyPath, 1, SlashPos-1) + Copy(FullKeyPath, SlashPos, LastDelimiter('\', FullKeyPath)-SlashPos);
  SubPath := Copy(ParentPath, SlashPos+1, Length(ParentPath)-SlashPos);

  // 检查父键是否为空（无值且无子键）
  RegResult := RegQueryStringValue(RootKey, SubPath, '', '');
  if (RegResult = ERROR_FILE_NOT_FOUND) then
  begin
    if RegOpenKeyEx(RootKey, SubPath, 0, KEY_READ, 0) = ERROR_NO_MORE_ITEMS then
    begin
      // 父键为空，执行删除
      if RegDeleteKey(RootKey, SubPath) = ERROR_SUCCESS then
      begin
        Result := True;
        // 递归删除更上层的空父键
        DeleteEmptyParentKey(ParentPath);
      end;
    end;
  end;
end;

// 卸载时执行注册表清理
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  SavePath: string;
  RegKeys: TStringList;
  I: Integer;
  FullKeyPath: string;
  RootKey: HKEY;
  SubPath: string;
  SlashPos: Integer;
begin
  if CurUninstallStep = usUninstall then
  begin
    SavePath := ExpandConstant('{app}\RegKeysToDelete.txt');
    if FileExists(SavePath) then
    begin
      RegKeys := TStringList.Create;
      try
        RegKeys.LoadFromFile(SavePath);
        for I := 0 to RegKeys.Count - 1 do
        begin
          FullKeyPath := RegKeys[I];
          SlashPos := Pos('\', FullKeyPath);
          if SlashPos = 0 then Continue;

          // 匹配根键
          if Copy(FullKeyPath, 1, SlashPos-1) = 'HKEY_LOCAL_MACHINE' then RootKey := HKEY_LOCAL_MACHINE
          else if Copy(FullKeyPath, 1, SlashPos-1) = 'HKEY_CURRENT_USER' then RootKey := HKEY_CURRENT_USER
          else if Copy(FullKeyPath, 1, SlashPos-1) = 'HKEY_CLASSES_ROOT' then RootKey := HKEY_CLASSES_ROOT
          else Continue;

          SubPath := Copy(FullKeyPath, SlashPos+1, Length(FullKeyPath)-SlashPos);
          // 删除当前注册表项
          if RegDeleteKey(RootKey, SubPath) = ERROR_SUCCESS then
          begin
            // 清理空父键
            DeleteEmptyParentKey(FullKeyPath);
          end;
        end;
      finally
        RegKeys.Free;
        DeleteFile(SavePath); // 删除记录文件
      end;
    end;
  end;
end;

3. 配套Setup配置

如果你的.reg文件操作的是HKEY_LOCAL_MACHINE这类需要管理员权限的根键，记得在[Setup]段添加：

[Setup]
PrivilegesRequired=admin

方案优势

• 完全保留你用.reg文件管理注册表的便捷性，不用手动维护[Registry]区段
• 无需复制生成带-的卸载.reg文件，避免冗余文件
• 递归清理空父键，彻底解决你遇到的上层空注册表项无法删除的问题

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