截获异常，并在运行时不报错

 

待验证

 

 

procedure TMainForm.MyException(Sender: TObject; E: Exception);
begin
  //ShowMessage('aaaaa');  //弹出异常信息
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnException   :=   MyException;   //--就是这一句
end;