windows - Inno Setup - 卸载程序时从 PATH 环境变量中删除路径

Question

我写了一个 Inno Setup 脚本来安装程序并更新 PATH 环境变量，包含程序安装目录。

我想更新PATH环境变量，恢复之前的安装状态。

安装路径由用户在安装程序运行时选择。

这是脚本，它使用来自 How do I modify the PATH environment variable when running an Inno Setup Installer? 的代码

[Setup]
ChangesEnvironment=yes

[Registry]
Root: HKLM; \
    Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; \
    ValueType: expandsz; ValueName: "PATH"; ValueData: "{olddata};{app}"; \
    Check: NeedsAddPath('{app}')
Root: HKLM; \
    Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; \
    ValueName: "PATH"; ValueData: "{app}"; Flags: uninsdeletevalue

[Code]
function NeedsAddPath(Param: string): boolean;
var
  OrigPath: string;
begin
  if not RegQueryStringValue(HKEY_LOCAL_MACHINE,
    'SYSTEM\CurrentControlSet\Control\Session Manager\Environment',
    'Path', OrigPath)
  then begin
    Result := True;
    exit;
  end;
  { look for the path with leading and trailing semicolon }
  { Pos() returns 0 if not found }
  Result := Pos(';' + Param + ';', ';' + OrigPath + ';') = 0;
end;

查看代码，可能会注意到以下指令:

Root: HKLM; \
    Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; \
    ValueName: "PATH"; ValueData: "{app}"; Flags: uninsdeletevalue

我使用了该指令，(在我看来)适用于我的示例，阅读 Inno Setup. How to uninstall registry value?

uninsdeletevalue的使用应该是卸载程序时删除的值，实际上我运行卸载程序时，整个PATH变量都被删除了，但是我需要将 PATH 环境变量恢复为之前的安装值。 我认为可以在运行安装程序之前读取它的值，但我不知道如何在卸载阶段使用它。

谁能帮我写一个代码示例？

Answer 1

当仅使用 [Registry] 部分条目卸载时，您不能让 Inno Setup 记住安装时的值并恢复它。

虽然您可以对其进行编码，但无论如何这都不是一个好方法，因为 PATH 可能在安装后发生变化，您将放弃任何此类更改。

---

您必须在 PATH 中搜索您的路径并仅删除该路径。

const
  EnvironmentKey = 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment';

procedure RemovePath(Path: string);
var
  Paths: string;
  P: Integer;
begin
  if not RegQueryStringValue(HKLM, EnvironmentKey, 'Path', Paths) then
  begin
    Log('PATH not found');
  end
    else
  begin
    Log(Format('PATH is [%s]', [Paths]));

    P := Pos(';' + Uppercase(Path) + ';', ';' + Uppercase(Paths) + ';');
    if P = 0 then
    begin
      Log(Format('Path [%s] not found in PATH', [Path]));
    end
      else
    begin
      if P > 1 then P := P - 1;
      Delete(Paths, P, Length(Path) + 1);
      Log(Format('Path [%s] removed from PATH => [%s]', [Path, Paths]));

      if RegWriteStringValue(HKLM, EnvironmentKey, 'Path', Paths) then
      begin
        Log('PATH written');
      end
        else
      begin
        Log('Error writing PATH');
      end;
    end;
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  begin
    RemovePath(ExpandConstant('{app}'));
  end;
end;