Delphi LoadLibrary 无法找到 DLL 其他目录 - 有什么好的选择吗？

Question

两个 Delphi 程序需要加载 foo.dll，其中包含一些将客户端身份验证证书注入 SOAP 请求的代码。 foo.dll 驻留在 c:\fooapp\foo.dll 中，通常由 c:\fooapp\foo.exe 加载。效果很好。另一个程序需要相同的功能，但它驻留在 c:\program files\unwantedstepchild\sadapp.exe 中。两个 aps 都使用以下代码加载 DLL：

FOOLib := LoadLibrary('foo.dll'); 
...
If FOOLib <> 0 then 
begin
  FOOProc := GetProcAddress(FOOLib , 'xInjectCert');
  FOOProc(myHttpRequest, Data, CertName);
end;

它对于 foo.exe 非常有用，因为 dll 就在那里。 Sadapp.exe 无法加载库，因此 FOOLib 为 0，其余部分永远不会被调用。因此，sadapp.exe 程序无法注入证书，并且当我们对生产进行测试时，如果证书丢失，连接是否会失败。显然，我们应该完全限定 DLL 的路径。在不涉及很多细节的情况下，直到最近，测试的某些方面都掩盖了这个问题，现在在代码中修复基本上为时已晚，因为这需要完整的回归测试，而且没有时间这样做。

既然我们已经把自己逼到了墙角，我需要知道是否有任何我忽略的选择。虽然我们无法更改代码（对于此版本），但我们可以调整安装程序。我发现将 c:\fooapp 放入路径中是可行的。与将 foo.dll 的第二个副本直接添加到 c:\program files\unwantedstepchild 中一样。 当sadapp.exe运行时，c:\fooapp\foo.exe将始终运行，所以我希望Windows能以这种方式找到它，但显然不是。有没有办法告诉 Windows 我确实想要同一个 DLL？也许是清单之类的？这就是我正在寻找的那种“灵丹妙药”。 我知道我可以：

1. 修改 Windows 路径，可能在安装程序中。那太丑了。
2. 将 DLL 的第二个副本直接添加到 unknownstepchild 文件夹中。 当我们编码和测试正确的修复时，也很丑陋
3. 延迟项目。不可接受的。
4. 其他？

感谢您的任何指导，特别是“其他”。据我了解，这个问题不一定是 Delphi 特有的。谢谢！

Answer 1

LoadLibrary 的 MSDN 文档告诉您 Windows 的确切位置将搜索 DLL。您要么必须对 DLL 的路径进行硬编码，将其放在与应用程序相同的文件夹中，要么将其放在 LoadLibrary 文档中的默认搜索位置之一。

Answer 2

这并不完全是所问问题的解决方案，但当我偶然发现这个问题时，它会对我有所帮助：

您可以通过 SetDllDirectory。

来自 MSDN-Doku：

可以使用 SetDllDirectory 函数更改搜索路径。
建议使用此解决方案，而不是使用 SetCurrentDirectory 或
硬编码 DLL 的完整路径。

您需要在 LoadLibrary 调用之前添加一行：

SetDllDirectory(PChar('c:\fooapp'));

Answer 3

或者您可以简单地编辑环境变量“path”并将 dll 的路径放入其中。在这种情况下，将 ;c:\fooapp 添加到路径就足够了。由于父级的环境更改会影响子级，因此您还可以创建一个加载器应用程序来调整其环境变量，然后生成您的应用程序。