delphi - Application.OnException 无法处理所有异常 - Delphi

Question

我正在使用 Delphi 7 并尝试处理程序运行期间抛出的所有可能的异常。我使用了 Application.OnException := HandlerProcedure;处理异常，但当异常发生时，HandlerProcedure 永远不会被调用。为了确保它是否真的有效，我在分配 Application.OnException 后引发了异常，如下所示:

Application.OnException := HandlerProcedure;
raise Exception.Create('Exception');

并将 HandlerProcedure 定义为:

procedure TFormMain.HandlerProcedure(Sender: TObject; E: Exception);
begin
    ShowMessage('Exception.');      
    Exit;
end;

但是 HandlerProcedure 永远不会被调用。我怎样才能让它处理所有异常？

Answer 1

如果要拦截所有异常，则需要实现RTLUnwindProc低级过程。

这有点低级(例如，它需要 asm 技能)，因此您应该更好地依赖现有代码。请参阅this stack overflow question 。我什至在 my own answer 中放置了一些引用代码(包括低级 asm，在 Win32 下使用 Delphi 7 及更高版本) .