SetEnvironmentVariable 不起作用

Question

我需要为包含的第 3 方库设置两个环境变量（当我的应用程序运行时）。

问题是“那样”它不起作用，但是 当我运行控制台应用程序时，设置这两个变量，然后运行应用程序，一切正常...

如何正确配置这两个变量？

我使用程序：

function SetEnvVarValue(const VarName,
  VarValue: string): Integer;
begin
  // Simply call API function
  if SetEnvironmentVariable(PChar(VarName),
    PChar(VarValue)) then
    Result := 0
  else
    Result := GetLastError;
end;

返回 0

也许事情是，我在应用程序启动时加载了库。 当我的应用程序启动时，我设置了变量，但我做得太晚了......？

---

更多信息

我在 dpr 中包含了两个单元：

'C:\Program Files (x86)\Borland\Delphi7\Lib\Magick\magick\ImageMagick.pas' 中的 ImageMagick， 'C:\Program Files (x86)\Borland\Delphi7\Lib\Magick\wand\magick_wand.pas'中的magick_wand；

还有单位：

unit DoItFirst;

interface

uses
  Windows, Sysutils;

var
  s: string;
  error: Integer;

function _putenv_s(const lpName, lpValue: PChar): BOOL; cdecl; external 'msvcrt.dll';

implementation

function GetEnvVarValue(const VarName: string): string;
var
  BufSize: Integer;  // buffer size required for value
begin
  // Get required buffer size (inc. terminal #0)
  BufSize := GetEnvironmentVariable(PChar(VarName), nil, 0);
  if BufSize > 0 then
  begin
    // Read env var value into result string
    SetLength(Result, BufSize - 1);
    GetEnvironmentVariable(PChar(VarName),
      PChar(Result), BufSize);
  end
  else
    // No such environment variable
    Result := '';
end;  

initialization

_putenv_s(PChar('DYLD_LIBRARY_PATH'), PChar('g:\_projekty\ZBar Test\'));
_putenv_s(PChar('MAGICK_CODER_MODULE_PATH'), PChar('g:\_projekty\ZBar Test\modules\coders\'));

s := GetEnvVarValue('DYLD_LIBRARY_PATH');
s := GetEnvVarValue('MAGICK_CODER_MODULE_PATH');

end.

这个单元在 dpr 文件的开头。

Answer 1

从您的更新中我可以看出，有问题的第三方库是 ImageMagick。该库的 .pas 包装器使用加载时链接到 ImageMagick DLL。

当您从命令解释器修改环境变量，然后启动您的进程时，ImageMagick DLL 可以看到这些环境变量。当您在进程启动代码中修改环境变量时，ImageMagick DLL 无法看到这些环境变量。大概是因为它在您的代码修改变量之前已经读取了变量。

我从上面得出的结论是 ImageMagick DLL 在其初始化时正在读取环境变量。

因为您使用的是加载时链接，所以 DLL 初始化发生在您有机会执行代码之前。我可以想出以下方法来解决这个问题：

1. ImageMagick DLL 从加载时链接切换到运行时链接。这将要求您修改您使用的 ImageMagick 包装器。如果您不熟悉如何执行此操作，则可以查阅 JEDI 源代码以获取灵感。请注意，如果您使用的是现代 Delphi，那么您可以简单地修改包装 DLL 以延迟加载 ImageMagick DLL。将delayed 指令添加到函数声明中。这会导致运行时链接。
2. 将一些代码移动到 DLL 中，以便您可以通过运行时链接加载它。我想象您将任何使用 ImageMagick 包装器的代码移动到 DLL 中。这将允许您继续使用相同的包装器，但仍然在进程运行时而不是进程加载时加载 ImageMagick DLL。您甚至可以将整个代码移动到一个 DLL 中，然后创建一个可执行文件，该可执行文件只是加载该 DLL，然后调用单个导出的 main 函数。
3. 使用单独的启动程序进程。启动器进程准备环境，然后启动真正的应用程序。

在我看来，在这些选项中，第一个是迄今为止最可取的。

Answer 2

您可能正在更改环境变量它们已被第三方库读取。

首先，您应该像游览程序所做的第一件事一样设置环境变量。

即便如此，第三方库也可能在初始化函数中读取该信息，甚至可能在您的代码开始运行之前。

如果是这种情况，我认为初始化顺序是确定性的（请参阅here），具体取决于您在dpr（项目文件）中的单元顺序。

如果您希望在第三方库查看它们之前设置这些变量，您可以创建一个DoMeFirst 单元并在该单元的初始化代码中执行此操作。然后确保这是项目文件中的第一个。

如果这不起作用，另一种选择可能是编写一个更改环境的程序，然后然后将您当前的程序作为子程序调用。