如何从Inno Setup安装程序设置全局环境变量？

EES 发表于 Dev

在前

如何在Inno Setup中设置全局环境变量？

^{背景：我正在使用Inno安装实用程序，需要在进行实际安装之前设置全局环境变量。}

阿德里安

试试这个：

[Registry]
Root: HKCU; Subkey: "Environment"; ValueType:string; ValueName: "VARIABLE_NAME"; \
    ValueData: "new_value"; Flags: preservestringtype

您可能需要添加以下内容：

[Setup]
; Tell Windows Explorer to reload the environment
ChangesEnvironment=yes

或者尝试：

[Run]
Filename: "{app}\MyProg.exe"; BeforeInstall: SetEnvPath

[Code]
#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif

function SetEnvironmentVariable(lpName: string; lpValue: string): BOOL;
  external 'SetEnvironmentVariable{#AW}@kernel32.dll stdcall';

procedure SetEnvPath;
begin
  if not SetEnvironmentVariable('VARIABLE_NAME', 'new_value') then
    MsgBox(SysErrorMessage(DLLGetLastError), mbError, MB_OK);
end;

参考：Inno Setup常见问题-设置环境变量

如果未传播变量更改（请参见Inno Setup中[Run]程序无法识别环境变量[不可用]）

[Run]
...; AfterInstall: RefreshEnvironment

[Code]
const
  SMTO_ABORTIFHUNG = 2;
  WM_WININICHANGE = $001A;
  WM_SETTINGCHANGE = WM_WININICHANGE;

type
  WPARAM = UINT_PTR;
  LPARAM = INT_PTR;
  LRESULT = INT_PTR;

function SendTextMessageTimeout(hWnd: HWND; Msg: UINT;
  wParam: WPARAM; lParam: PAnsiChar; fuFlags: UINT;
  uTimeout: UINT; out lpdwResult: DWORD): LRESULT;
  external '[email protected] stdcall';  

procedure RefreshEnvironment;
var
  S: AnsiString;
  MsgResult: DWORD;
begin
  S := 'Environment';
  SendTextMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
    PAnsiChar(S), SMTO_ABORTIFHUNG, 5000, MsgResult);
end;

更多细节：

Inno Setup：设置系统环境变量

在Windows 2000，XP和Windows 2003 Server等更现代（换句话说，正确的）操作系统上，环境变量存储在注册表中的以下键下：

HKEY_LOCAL_MACHINE \ System \ CurrentControlSet \ Control \ Session Manager \环境

通过在此键下创建新值或修改值（如果已存在）来添加变量。要删除变量，只需删除其注册表值，除非要删除扩展值的一部分（例如PATH），在这种情况下，只需删除所需的部分。

此时，除非您注销或重新引导，否则Windows将不会知道您所做的更改。为了解决这个问题，SetEnv将向系统中的所有窗口广播WM_SETTINGCHANGE。这样就可以将其他更改通知给其他正在运行的应用程序，例如Explorer.exe。如果从命令提示符下运行SetEnv，则不会更新当前DOS窗口的环境变量。这主要是由于以下事实：进程（SetEnv）无法更改其父级的环境（命令提示符）。但是，您打开的任何新的DOS /命令提示符都将显示新的变量/值。