如何得出程序出错信息(100分)

需要自定义程序出错提示，如何得出程序出错信息？

从帮助中抄来的:<br><br>try<br><br>&nbsp;...<br>except<br>&nbsp; on EZeroDivide do HandleZeroDivide;<br>&nbsp; on EOverflow do HandleOverflow;<br>&nbsp; on EMathError do HandleMathError;<br>else<br>&nbsp; HandleAllOthers;<br>end;

To oldppp：<br>问题是：如何得出程序出错信息？ 不是问程序出错时如何处理。

showexception

In addition to displaying the exception message, which happens <br>by default, the following code shuts down the application when a <br>VCL exception is not caught and handled.<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>&nbsp; Application.OnException := AppException;<br><br>end;<br><br>procedure TForm1.AppException(Sender: TObject; E: Exception);<br><br>begin<br>&nbsp; Application.ShowException(E);<br>&nbsp; Application.Terminate;<br>end;

楼上说的方法可以，<br>也可以用Delphi自带的一个控件TApplicationEvents;<br>这可以处理多种消息。

接受答案了.