如何在Delphi应用程序中调用APPCRASH事件？

Question

您可能会将此视为一个愚蠢的问题,但我很好奇如何使用APPCRASH错误终止我的delphi制作的应用程序.(也称为"不发送"错误!!)

Thnx提前

Answer 1

您可以通过在System中设置全局变量JITEnable来启用此功能.如果将其设置为1,则所有外部异常(即访问冲突,非法指令和任何非Delphi异常)都将触发您想要的反应.如果将其设置为2,则任何异常都将触发该行为.在任何一种情况下,只有在您没有调试应用程序时才会发生这种情况.调试器将始终获得第一次破解,并将通知您即将发生的厄运.这是一个简单的例子:

{$APPTYPE CONSOLE}
uses
  SysUtils;

begin
  try
    JITEnable := 2;
    raise Exception.Create('Error Message');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.