delphi 捕捉屏幕异常特殊处理

Application.OnException := BSException;//异常捕捉

procedure TfmClient.BSException(Sender: TObject; E: Exception);

begin

  // EOSError  System Error.  Code: 5. 拒绝访问。.

  if  Pos('System Error.  Code: 5.',e.Message) > 0 then

    abort;

  //由于窗体在数据未取到时关闭，就会出在该模块的地址错误。

  if  Pos('dsnap70.bpl',e.Message) > 0 then

    abort;

  if  Pos('Cannot create form. No MDI forms are currently active',e.Message) > 0 then

    halt;

  ShowMessage(e.Message);  //弹出异常信息

end;