Inno Setup子安装程序完成Node安装后无法运行该应用程序

我来帮你搞定这个问题——我之前在做类似的安装脚本时也碰到过一模一样的情况，核心原因要么是环境变量没同步，要么是Node还没装完就去调用了，下面给你拆解原因和对应的解决方案：

为啥会出现这个错误？ #

• 环境变量没刷新：Node.js安装包会把自己的路径加到系统PATH里，但Inno Setup的主进程是在安装前启动的，它不会自动感知到PATH的更新，所以找不到node.exe。
• Node安装还没完成：默认情况下Inno Setup的[Run]段是异步执行的，可能你刚触发Node的MSI安装，就立刻去调用Node了，这时候安装还没结束，自然找不到文件。
• 没指定完整路径：你如果直接调用node，它依赖PATH查找，但PATH还没更新，肯定会失败。

具体解决方案 #

1. 先等Node安装完再继续 #

把[Run]里的MSI安装改成同步执行，让Inno Setup等Node装完再往下走，加上WaitUntilTerminated和静默安装参数/qn（避免弹出额外安装窗口）：

[Run]
Filename: "msiexec.exe"; Parameters: "/i ""{app}\nodejs\node-v8.11.1-x64.msi"" /qn"; Flags: WaitUntilTerminated; Description: "安装Node.js";

2. 直接用Node的完整路径调用 #

既然PATH没更新，那就别依赖它，直接用安装后的完整路径找node.exe，比如你把Node放在{app}\nodejs下，就在Code段里这么写：

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  ErrorCode: Integer;
  ReturnCode: Boolean;
  NodeFullPath: String;
begin
  // 等安装完成后的步骤再执行
  if CurStep = ssPostInstall then
  begin
    // 拼接node.exe的完整路径
    NodeFullPath := ExpandConstant('{app}\nodejs\node.exe');
    // 示例：运行node查看版本
    ReturnCode := ShellExec('open', NodeFullPath, '--version', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
    if not ReturnCode then
    begin
      MsgBox('运行Node失败，错误码：' + IntToStr(ErrorCode), mbError, MB_OK);
    end;
  end;
end;

3. 手动刷新当前进程的环境变量 #

如果你非要用node命令而不是完整路径，可以手动刷新Inno Setup进程的环境变量，让它读取到最新的PATH：

[Code]
// 引入Windows API函数
function SetEnvironmentVariable(lpName: String; lpValue: String): Boolean;
  external 'SetEnvironmentVariableW@kernel32.dll stdcall';

function RegQueryStringValue(RootKey: Integer; SubKey, ValueName: String; var Value: String): Boolean;
  external 'RegQueryStringValue@files:issrc.dll stdcall';

procedure RefreshCurrentProcessEnv;
var
  UpdatedPath: String;
begin
  // 从注册表读取系统最新的PATH
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', UpdatedPath) then
  begin
    // 更新当前Inno Setup进程的PATH变量
    SetEnvironmentVariable('Path', UpdatedPath);
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  ErrorCode: Integer;
  ReturnCode: Boolean;
begin
  if CurStep = ssPostInstall then
  begin
    // 先刷新环境变量
    RefreshCurrentProcessEnv;
    // 现在可以直接调用node了
    ReturnCode := ShellExec('open', 'node.exe', '--version', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
    if not ReturnCode then
    begin
      MsgBox('运行Node失败，错误码：' + IntToStr(ErrorCode), mbError, MB_OK);
    end;
  end;
end;

注意：这个方法只能刷新当前Inno Setup进程的环境变量，其他已经打开的进程还是看不到更新后的PATH。

4. 从注册表获取Node的安装路径 #

有些时候MSI可能会把Node装到系统默认路径（比如C:\Program Files\nodejs），这时候可以从注册表读取正确的安装路径，避免硬编码：

[Code]
function GetNodeInstallDir(var InstallDir: String): Boolean;
begin
  // 先查64位注册表项
  Result := RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Node.js', 'InstallPath', InstallDir);
  // 如果没找到，查32位兼容项
  if not Result then
  begin
    Result := RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\WOW6432Node\Node.js', 'InstallPath', InstallDir);
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  ErrorCode: Integer;
  ReturnCode: Boolean;
  NodePath: String;
begin
  if CurStep = ssPostInstall then
  begin
    if GetNodeInstallDir(NodePath) then
    begin
      // 拼接node.exe的完整路径
      NodePath := AddBackslash(NodePath) + 'node.exe';
      ReturnCode := ShellExec('open', NodePath, '--version', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
      if not ReturnCode then
      begin
        MsgBox('运行Node失败，错误码：' + IntToStr(ErrorCode), mbError, MB_OK);
      end;
    end
    else
    begin
      MsgBox('找不到Node.js的安装路径', mbError, MB_OK);
    end;
  end;
end;

最稳妥的组合方案 #

我个人推荐同步等待MSI安装完成 + 使用完整路径调用Node，这样既保证Node已经装完，又避开了环境变量的坑，基本不会出问题。

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