相关疑难解决方法(0)

我正在使用Delphi TApplication.OnException事件来捕获未处理的异常

这很有效,但没有提供关于异常发生位置的充分信息,即"灾难性故障"

如何找出导致错误发生的程序？

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  Application.OnException := MyExceptionHandler;
end;

procedure TFrmMain.MyExceptionHandler(Sender : TObject; E : Exception );
begin
  LogException (E.Message);     
  Application.ShowException( E );
end;