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实现音频传输

Delphi memo1 统计行 列

Delphi改变文件夹图标

Delphi制作手机签名app（windows同样适用）

Delphi中实现全角转半角

Delphi 使用 {$include} 或 {$i} 指令管理和调用自定义函数

Delphi playsound(); 停止播放

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

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