运行 Inno Setup Installer 时如何修改 PATH 环境变量?

Posted

技术标签:

【中文标题】运行 Inno Setup Installer 时如何修改 PATH 环境变量?【英文标题】:How do I modify the PATH environment variable when running an Inno Setup Installer? 【发布时间】:2011-03-19 06:46:09 【问题描述】:

Inno Setup 允许您通过 [Registry] 部分设置环境变量(通过设置与环境变量对应的注册表项)

但是,有时您不只是想设置一个环境变量。通常,您想对其进行修改。例如:在安装时,可能需要在 PATH 环境变量中添加/删除目录。

如何在 InnoSetup 中修改 PATH 环境变量?

【问题讨论】:

【参考方案1】:

您提供的注册表项中的路径是REG_EXPAND_SZ 类型的值。正如 [Registry] 部分的 Inno Setup 文档所述,有一种方法可以将元素附加到这些:

stringexpandszmultisz 类型值上,您可以在此参数中使用称为olddata 的特殊常量。 olddata 替换为注册表值的先前数据。如果您需要将字符串附加到现有值(例如,olddata;app),olddata 常量会很有用。如果值不存在或现有值不是字符串类型,则 olddata 常量将被静默删除。

因此,可以使用与此类似的注册表部分附加到路径:

[Registry]
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; \
    ValueType: expandsz; ValueName: "Path"; ValueData: "olddata;C:\foo"

这会将“C:\foo”目录附加到路径中。

不幸的是,当您第二次安装时,这会重复,这也应该修复。一个Check参数和一个用Pascal脚本编码的函数可以用来检查路径是否确实需要扩展:

[Registry]
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; \
    ValueType: expandsz; ValueName: "Path"; ValueData: "olddata;C:\foo"; \
    Check: NeedsAddPath('C:\foo')

此函数读取原始路径值并检查给定目录是否已包含在其中。为此,它会在路径中添加用于分隔目录的分号字符。考虑到搜索目录可能是第一个或最后一个元素的事实,分号字符也被预先添加并附加到原始值:

[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;

请注意,在将常量作为参数传递给检查函数之前,您可能需要展开常量,详情请参阅文档。

在卸载过程中从路径中删除此目录可以以类似的方式完成,留给读者作为练习。

【讨论】:

如果您可以简单地将olddata 传递给 Check 函数,这样您就不必在代码中再次读取该值,那不是很好吗? (也许你可以——我没试过);) 另一件事是路径可能存在但使用不同的字符大小写(通过使用UpperCase 或类似函数很容易修复),或者更糟糕的是,使用 8.3 路径名(例如“C:\ Progra~1\MyProg") 或环境变量(例如 "%programfiles%\MyProg")。检测到这些也将是一场噩梦...... 当你的程序被卸载了怎么办?您将如何从 PATH 环境变量中删除您的路径? 我不得不说你使用Pos()的方式相当巧妙。我会用分号将字符串拆分成一个数组,然后遍历每个数组。我想我不会想到这种方法。 [Setup] 中设置ChangesEnvironment=yes,您可以删除重新启动的要求。 Source【参考方案2】:

我遇到了同样的问题,但尽管有上述答案,我最终还是得到了一个自定义解决方案,我想与您分享。

首先,我使用 2 种方法创建了 environment.iss 文件 - 一种用于将路径添加到环境的 Path 变量,第二种用于删除它:

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

procedure EnvAddPath(Path: string);
var
    Paths: string;
begin
     Retrieve current path (use empty string if entry not exists) 
    if not RegQueryStringValue(HKEY_LOCAL_MACHINE, EnvironmentKey, 'Path', Paths)
    then Paths := '';

     Skip if string already found in path 
    if Pos(';' + Uppercase(Path) + ';', ';' + Uppercase(Paths) + ';') > 0 then exit;

     App string to the end of the path variable 
    Paths := Paths + ';'+ Path +';'

     Overwrite (or create if missing) path environment variable 
    if RegWriteStringValue(HKEY_LOCAL_MACHINE, EnvironmentKey, 'Path', Paths)
    then Log(Format('The [%s] added to PATH: [%s]', [Path, Paths]))
    else Log(Format('Error while adding the [%s] to PATH: [%s]', [Path, Paths]));
end;

procedure EnvRemovePath(Path: string);
var
    Paths: string;
    P: Integer;
begin
     Skip if registry entry not exists 
    if not RegQueryStringValue(HKEY_LOCAL_MACHINE, EnvironmentKey, 'Path', Paths) then
        exit;

     Skip if string not found in path 
    P := Pos(';' + Uppercase(Path) + ';', ';' + Uppercase(Paths) + ';');
    if P = 0 then exit;

     Update path variable 
    Delete(Paths, P - 1, Length(Path) + 1);

     Overwrite path environment variable 
    if RegWriteStringValue(HKEY_LOCAL_MACHINE, EnvironmentKey, 'Path', Paths)
    then Log(Format('The [%s] removed from PATH: [%s]', [Path, Paths]))
    else Log(Format('Error while removing the [%s] from PATH: [%s]', [Path, Paths]));
end;

参考:RegQueryStringValueRegWriteStringValue

现在在主 .iss 文件中,我可以包含此文件并监听 2 个事件(有关事件的更多信息,您可以在文档中的 Event Functions 部分了解),CurStepChanged 用于在安装后添加路径,CurUninstallStepChanged 用于删除当用户卸载应用程序时。在下面的示例脚本中添加/删除bin 目录(相对于安装目录):

#include "environment.iss"

[Setup]
ChangesEnvironment=true

; More options in setup section as well as other sections like Files, Components, Tasks...

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
    if CurStep = ssPostInstall 
     then EnvAddPath(ExpandConstant('app') +'\bin');
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
    if CurUninstallStep = usPostUninstall
    then EnvRemovePath(ExpandConstant('app') +'\bin');
end;

参考:ExpandConstant

注意#1:安装步骤只添加一次路径(确保安装的可重复性)。

注意 #2:卸载步骤仅从变量中删除一次出现的路径。

奖励:带有复选框“添加到 PATH 变量”的安装步骤。

使用复选框“添加到路径变量”添加安装步骤在[Tasks]部分定义新任务(默认选中):

[Tasks]
Name: envPath; Description: "Add to PATH variable" 

那你可以在CurStepChanged事件中查看:

procedure CurStepChanged(CurStep: TSetupStep);
begin
    if (CurStep = ssPostInstall) and IsTaskSelected('envPath')
    then EnvAddPath(ExpandConstant('app') +'\bin');
end;

【讨论】:

@wojciech 谢谢。如果我必须将 两个 文件夹添加到 PATH 怎么办? @SumanKhanal 在CurStepChangedCurUninstallStepChanged 函数中调用EnvAddPathEnvRemovePath 2 次。 最佳答案在这里,适用于干净地安装和卸载。 @WojciechMleczek 谢谢!这是我尝试将文件夹添加到 PATH 的最佳方法!【参考方案3】:

您可以在 InnoSetup 脚本文件中使用 LegRoom.net 的 modpath.iss 脚本:

#define MyTitleName "MyApp" 

[Setup]
ChangesEnvironment=yes

[CustomMessages]
AppAddPath=Add application directory to your environmental path (required)

[Files]
Source: "install\*"; DestDir: "app"; Flags: ignoreversion recursesubdirs createallsubdirs; 

[Icons]
Name: "group\cm:UninstallProgram,#MyTitleName"; Filename: "uninstallexe"; Comment: "Uninstalls #MyTitleName"
Name: "group\#MyTitleName"; Filename: "app\#MyTitleName.EXE"; WorkingDir: "app"; AppUserModelID: "#MyTitleName"; Comment: "Runs #MyTitleName"
Name: "commondesktop\#MyTitleName"; Filename: "app\#MyTitleName.EXE"; WorkingDir: "app"; AppUserModelID: "#MyTitleName"; Comment: "Runs #MyTitleName"

[Registry]
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: expandsz; ValueName: "Path"; ValueData: "olddata;app"

[Tasks]
Name: modifypath; Description:cm:AppAddPath;   

[Code]

const
    ModPathName = 'modifypath';
    ModPathType = 'system';

function ModPathDir(): TArrayOfString;
begin
    setArrayLength(Result, 1)
    Result[0] := ExpandConstant('app');
end;

#include "modpath.iss"

【讨论】:

感谢就像一个魅力。通过删除 modpath.iss 中的一些代码,也可以在不询问用户的情况下使其运行(即不是作为带有复选框的任务,而是始终)。 @JohannesSchaub-litb 哇,这太重了。由于原始链接现在被标记为危险(我不知道为什么),但一个简单的存档查找将脚本标记为 GPL3 许可证web.archive.org/web/20170610232441/https://www.legroom.net/…【参考方案4】:

the answer by @mghie 中的 NeedsAddPath 不检查尾随 \ 和字母大小写。修复它。

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(';' + UpperCase(Param) + ';', ';' + UpperCase(OrigPath) + ';') = 0) and
    (Pos(';' + UpperCase(Param) + '\;', ';' + UpperCase(OrigPath) + ';') = 0); 
end;

【讨论】:

如何使用变量而不是 'C:\foo'?我试过 NeedsAddPath('app') 但它不起作用 - 尽管它已经退出,但只是连接路径。能给点建议吗? 只是回答上面的评论,可能对其他人有用:您需要使用ExpandConstant()函数。 谢谢杰克。但是我很想看一个 NeedsAddPath('app\MoreDirectoriesHere') 的例子【参考方案5】:

我要感谢大家对这个问题的贡献。我已将 Wojciech Mleczek 发布的大约 95% 的代码合并到我的应用程序的安装程序中。我确实对该代码进行了一些更正,这可能对其他人有用。我的改变:

将形式参数 Path 重命名为 instlPath。减少代码中“路径”的多次使用(更易于阅读,IMO)。

安装/卸载时,为以\; 结尾的instlPath 添加存在性检查。

在安装过程中,不要在当前的%PATH% 中加倍;

在安装过程中处理缺失或空的%PATH%

在卸载过程中,确保没有将起始索引 0 传递给 Delete()

这是我更新后的EnvAddPath()

const EnvironmentKey = 'Environment';

procedure EnvAddPath(instlPath: string);
var
    Paths: string;
begin
     Retrieve current path (use empty string if entry not exists) 
    if not RegQueryStringValue(HKEY_CURRENT_USER, EnvironmentKey, 'Path', Paths) then
        Paths := '';

    if Paths = '' then
        Paths := instlPath + ';'
    else
    begin
         Skip if string already found in path 
        if Pos(';' + Uppercase(instlPath) + ';',  ';' + Uppercase(Paths) + ';') > 0 then exit;
        if Pos(';' + Uppercase(instlPath) + '\;', ';' + Uppercase(Paths) + ';') > 0 then exit;

         Append App Install Path to the end of the path variable 
        Log(Format('Right(Paths, 1): [%s]', [Paths[length(Paths)]]));
        if Paths[length(Paths)] = ';' then
            Paths := Paths + instlPath + ';'   don't double up ';' in env(PATH) 
        else
            Paths := Paths + ';' + instlPath + ';' ;
    end;

     Overwrite (or create if missing) path environment variable 
    if RegWriteStringValue(HKEY_CURRENT_USER, EnvironmentKey, 'Path', Paths)
    then Log(Format('The [%s] added to PATH: [%s]', [instlPath, Paths]))
    else Log(Format('Error while adding the [%s] to PATH: [%s]', [instlPath, Paths]));
end;

还有EnvRemovePath()的更新版本:

procedure EnvRemovePath(instlPath: string);
var
    Paths: string;
    P, Offset, DelimLen: Integer;
begin
     Skip if registry entry not exists 
    if not RegQueryStringValue(HKEY_CURRENT_USER, EnvironmentKey, 'Path', Paths) then
        exit;

     Skip if string not found in path 
    DelimLen := 1;      Length(';') 
    P := Pos(';' + Uppercase(instlPath) + ';', ';' + Uppercase(Paths) + ';');
    if P = 0 then
    begin
         perhaps instlPath lives in Paths, but terminated by '\;' 
        DelimLen := 2;  Length('\;') 
        P := Pos(';' + Uppercase(instlPath) + '\;', ';' + Uppercase(Paths) + ';');
        if P = 0 then exit;
    end;

     Decide where to start string subset in Delete() operation. 
    if P = 1 then
        Offset := 0
    else
        Offset := 1;
     Update path variable 
    Delete(Paths, P - Offset, Length(instlPath) + DelimLen);

     Overwrite path environment variable 
    if RegWriteStringValue(HKEY_CURRENT_USER, EnvironmentKey, 'Path', Paths)
    then Log(Format('The [%s] removed from PATH: [%s]', [instlPath, Paths]))
    else Log(Format('Error while removing the [%s] from PATH: [%s]', [instlPath, Paths]));
end;

【讨论】:

【参考方案6】:

这里是忽略大小写问题的完整解决方案,检查是否存在以\ 结尾的路径并扩展参数中的常量:

function NeedsAddPath(Param: string): boolean;
var
  OrigPath: string;
  ParamExpanded: string;
begin
  //expand the setup constants like app from Param
  ParamExpanded := ExpandConstant(Param);
  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 and with or without \ ending
  // Pos() returns 0 if not found
  Result := Pos(';' + UpperCase(ParamExpanded) + ';', ';' + UpperCase(OrigPath) + ';') = 0;  
  if Result = True then
     Result := Pos(';' + UpperCase(ParamExpanded) + '\;', ';' + UpperCase(OrigPath) + ';') = 0; 
end;

【讨论】:

很确定这里有一个问题:只有在找到; 的情况下,它才会检查'\;' 的情况。【参考方案7】:

如果您可以使用外部 DLL,PathMgr.dll 也可以是一个选项。

有一个sample .iss script 演示了如何在 Inno Setup 6 或更高版本中使用 DLL。

PathMgr.dll 受 LPGL 许可保护。

【讨论】:

以上是关于运行 Inno Setup Installer 时如何修改 PATH 环境变量?的主要内容,如果未能解决你的问题,请参考以下文章

Inno Setup卸载可执行文件的位置和名称

Inno Setup安装卸载时判断是否程序正在运行

inno setup相关

Inno Setup 安装程序运行时命名检查问题

Inno Setup安装程序单例运行

Inno Setup CreateProcess 失败:代码 740(Inno Setup打包的程序提升为管理员权限)