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 firedac tfddatamove 导出csv

Delphi版的base64转换函数（修改版）

Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)

Delphi-xe5-开发 android uri简介

Delphi 获得父目录�c指定级父目录

如何为Delphi程序添加事件和事件处理器

Delphi sysutils.strcat

Delphi idhttp上传图给asp完美解决

Delphi rest/post

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

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