如何屏蔽掉运行时的异常处理错误提示框

如果写的程序在运行时,老是出现异常处理错误提示框,但是你又想屏蔽掉.
方法如下:

步骤1: 在窗体类声明一个方法

// 屏蔽所有的异常处理出现的对话框
procedure TForm_Recoveryer.OnException(Sender: TObject; E: Exception) ;
begin
  //
  Exit ;
end;

步骤2: 在窗体的OnCreate事件添加代码

// 屏蔽所有的异常处理提示的对话框
  Application.OnException := OnException ;


即可做到屏蔽所有的异常处理错误窗口.