如果加载 dll 找不到依赖项,有什么方法可以捕获错误?

Is there any way to catch the error if loading a dll cannot find a dependency?

我正在编写一个 Windows 32 位程序,它可以使用多个可能的 dll 之一。因此它尝试使用 SysUtils.SafeLoadLibrary 依次加载每个 dll,如果加载成功,它会使用该 dll。

不幸的是,其中一些 dll 静态链接到其他 dll。计算机中可能缺少这些 dll。在那种情况下,我得到对话框告诉我

[myprogram]: [myprogram.exe] System Error

The program can't start because [some dll name] is missing from your computer. Try reinstalling the program to fix this problem."

在该对话框中按下“确定”按钮后,程序获取错误代码并尝试使用其他 dll 之一,然后正常工作。

我希望我的程序静静地忽略它,而不是向用户显示该对话框。

我怎样才能做到这一点?

以防万一:我的程序是在 Delphi 2007 年编写的。Windows 版本是 Windows 8.1,但该程序也应该适用于其他 Windows版本 >= Windows XP.

我试过SetErrorMode(SEM_FAILCRITICALERRORS),但没有任何区别。

SafeLoadLibrary 将错误模式设置为您作为参数提供的值,然后在调用 LoadLibrary returns 后恢复它。很可能您没有为该参数提供值,在这种情况下,将传递默认值 SEM_NOOPENFILEERRORBOX。在那种情况下,它可能会禁用 SEM_FAILCRITICALERRORS,这将解释您看到的行为。

每次调用SafeLoadLibrary时传递SEM_FAILCRITICALERRORS即可解决问题。或者,也许更好的方法是通过当前错误模式。然而,这很难获得。在 Vista 及更高版本中,您可以调用 GetErrorMode。但在旧版本中你必须这样做:

ErrorMode := SetErrorMode(0);
SetErrorMode(ErrorMode);

因为这是一个进程范围的设置,所以在对 SetErrorMode 的两次调用之间有一个 window 的机会来捕获多线程应用程序。

坦率地说,我认为您应该在进程的生命周期内仅在启动时调用一次 SetErrorMode。考虑到这一点,我会避开 SafeLoadLibrary.

如果您想利用它的其他功能,即防止浮点控制状态发生更改,那么我认为您应该自己实现该功能。