Delphi loadlibrary() 中的错误

Question

我给了我的软件用户一个从 openfile 对话框中选择 dll 的机会。（这样我的用户就可以从我的网站下载 dll 并将其与主项目一起使用）。一切工作正常，它甚至可以发现 dll 是由我提供的或选择了无效的 dll。但是如果用户选择重命名的文件（例如： apple.txt 文件重命名为 apple.dll ），则会出现问题。我像这样输入代码

尝试 dllHandle := LoadLibrary( pwidechar(openfiledialog1.filename)) ;

抓住 { 如果它不是 dll，则显示消息（但它可以是任何 dll，稍后它会检查这是我的 dll 还是第 3 方）}

end;

delphi 显示的错误消息是“选择了错误的库图像”，

但如果用户选择无效的 dll，则 try catch 不起作用，它会显示自己的错误消息并启动。

谁能帮助我，我正在使用delphi 2009

Answer 1

没有要捕获的异常，因为 < 时不会引发异常代码>LoadLibrary失败；它只是返回“0”。

您应该检查“dllHandle”是否为0，如果是，则使用GetLastError 如文档所述。或者，您可以使用 Win32Check函数将引发异常并显示相应的错误消息：（

编辑：“LoadLibrary”文档指出：要启用或禁用由DLL 加载期间加载程序，请使用 SetErrorMode 函数。 因此，如果您不希望操作系统显示额外的对话框，您可以在调用 LoadLibrary 之前设置错误模式。）

var
  dllHandle: HMODULE;
  ErrorMode: UINT;
begin
  if OpenDialog1.Execute then begin
    ErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS); // disable OS error messages
    try
      dllHandle := LoadLibrary(PChar(OpenDialog1.FileName));
    finally
      SetErrorMode(ErrorMode);
    end;
    if Win32Check(Bool(dllHandle)) then begin  // exception raised if false
      // use the libary

      end;
  end;
end;