本源码演示使用Delphi中的ExceptionErrorMessage函数，抛出异常信息，该函数用于获取当前异常信息。本源码其实就是ExceptionErrorMessage函数的用法示例，异常处理在程序中很常见，一个优秀的程序，异常处理是不能少的，需要了解用法的，请参考以下范例代码： 　　try 　　raiseEOverflow.Create('这是一个异常处理消息'); 　　except 　　ExceptionErrorMessage(ExceptObject,ExceptAddr(),buffer,1000); 　　MmList.Lines.Add('异常信息：'Bu