在delphi中调用DLL时出现异常？

Question

我有一个从 DLL 调用名为 [main()] 的函数的过程，这是 Caller 过程：

procedure call_dll(path:string);
var
  lib: HMODULE;
  mainfn: procedure(); stdcall;
begin
if FileExists(path) then
 begin
   try
     lib := LoadLibrary(PAnsiChar(path));
     Win32Check(lib <> 0);
     try
       @mainfn := GetProcAddress(lib, 'main');
       Win32Check(Assigned(mainfn));
       mainfn();
     finally
       FreeLibrary(lib);
     end;
   except
   end;
 end;
end;

直到一切正常，我的意思是在编写 DLL 的正确路径后一切正常，但如果我在路径参数中写了错误的路径（其他文件路径），它会向我显示一个弹出错误is 不是 Win32 DLL，但我不想用这种类型的错误来打扰用户，所以我需要一个函数来检查 DLL，如果不是，那么它会自动再次请求另一个文件而不显示弹出错误？

Answer 1

是您的代码引发了异常。您的代码明确选择通过引发异常来处理错误。您的代码在此处引发了异常：

Win32Check(lib <> 0);

如果您不想引发异常，请不要使用Win32Check。而是检查lib 的值并通过您认为合适的任何方式处理任何错误。

您对Win32Check 的其他用途也存在同样的问题。

当然，您正在使用 catch all 异常处理程序吞下所有异常。捕获所有异常处理程序通常是一个坏主意。我不明白你为什么把它包括在内。我认为你应该删除它。

因此，如果您在调试器外部运行时看到对话框，则表明系统正在生成对话框。您应该通过在启动时调用SetErrorMode 并传递SEM_FAILCRITICALERRORS 来禁用系统的错误消息对话框。

var
  Mode: DWORD;
....
Mode := SetErrorMode(SEM_FAILCRITICALERRORS);
SetErrorMode(Mode or SEM_FAILCRITICALERRORS);

这里解释了有点笨拙的双重调用：http://blogs.msdn.com/b/oldnewthing/archive/2004/07/27/198410.aspx