本文整理自网络,侵删。
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:取得浏览器地址,网址(支持ie,firefox)
Delphi 利用tidencodermime tiddecodermime 组件字符串加密解密
Delphi 以低用户权限启动一个进程.比如vista或者win7中的ie
Delphi中使用xmlhttp / xmlhttprequest 避免缓存
更多相关阅读请进入《Delphi》频道 >>