如何屏蔽异常对话框

Question

在DELPHI的应用程序中，为了屏蔽异常对话框，如内存越界等，可以在工程中加入如下语句：Application.OnException := form1.DealException;然后在DealException函数中增加相应的处理方法。这样发生异常时，系统并不打开异常对话框。现在我想问一下，如何在一个DELPHI动态库中实现上面的功能，请各位大侠出手，谢谢！

Answer 1

tyrexception
 HanleException();
 Exit;
end;
应该可以吧；

Answer 2

这样的话，不是在所有的函数和过程中都要加入这些语句。我是想问有没有想Application.OnException := form1.DealException这样的统一处理的方法。