delphi - 如何在 dpr 中捕获表单的异常

Question

我需要在 Delphi 7 程序中捕获所有非单元初始化异常，这样我就可以将异常写入文件，或许还可以向用户显示一条消息。

阅读这篇文章后，我认为全局异常处理程序会很麻烦，我需要的只是在 DPR 级别捕获所有异常。但是，我无法使用下面的代码访问 dpr 中的 ShowMessage。

为什么下面的 Raise Exception 实际上会导致异常显示在屏幕上而不是跳出到 .dpr 的 except 子句？也许全局异常处理程序会是更好的方法？

dpr 中紧接在下方的代码不应该以一种形式捕获所有异常吗？

在民主共和国:

begin
  Application.Initialize;
  try
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  except
    On E: Exception do
      ShowMessage('In dpr except. Exception is: ' + E.Message);
  end;    
end.

形式:

Function TForm1.DoSomething( out aErrm: String):boolean; // force a failure for testing
begin
  Result := FALSE;
  aErrm := 'Failed in DoSomething';
end;

procedure TForm1.FormShow(Sender: TObject); 
begin
  try
    fOk := DoSomething(fErrm);
  except
    fOk := FALSE;
    Errm := 'Unexpected exception'
  end;

  if (NOT fOk) then
    Raise Exception.Create(Errm) // why does this pop-up an exception when the DPR has an except around this code?
  else
    PostMessage(Handle, WM_CLOSE, 0, 0); // self-closing form
end;  { FormActivate }

Answer 1

TApplication.Run中的主消息循环包装并处理异常 block 中的所有消息，结果捕获所有异常，从而使 DPR 中的主要异常 block 完全无用。

如果您想捕获和处理应用程序异常，请使用 TApplication.OnException .