delphi 捕捉全局异常错误的方法

本文整理自网络，侵删。

 
private
    { Private declarations }
  public
  procedure GlobalExceptionHandler(Sender: TObject; E: Exception);
    { Public declarations }
  end;proced


ure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := GlobalExceptionHandler;
end;
 
 
procedure TForm1.GlobalExceptionHandler(Sender: TObject; E: Exception);
begin
mmLog.Lines.Add(Sender.ClassName + ': ' + E.Message);
end;
 

相关阅读 >>

字符串截取小例子Delphi源代码

Delphi 获取系统服务列表

键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例

Delphi android adb usb上读取设备信息

Delphi里实现文件格式关联应用程序的功能

Delphi 检测网络是否连通

Delphi xe android下让tmemo不自动弹出键盘

纯真ip数据库解析Delphi d10.1下正常使用

Delphi richedit选中文字右键菜单的实现

Delphi 在tedit中显示水印提示

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 捕捉全局异常错误的方法