如何避免显示错误？

Question

如何避免显示小 Windows 错误框时出现错误？
Try 和 Except 不起作用，因为 Delphi 没有显示错误，而是来自程序或我认为来自 Windows。

try
Size:=TFileStream.Create(BitFile,fmOpenRead);
except on E: EFCreateError
do EC.Add('Error: ' + IntToStr(GetLastError));
end;

Answer 1

您的应用程序中是否显示错误？否则，它是一个未处理的异常吗？还是由 Windows 或外部应用程序显示的框？

您说的是“事件”，但事件处理程序也可以包含 try..except 块。

如果它是一个异常，并且您不知道它来自哪里，您可以使用 TApplicationEvents 类来附加 Application.OnException 事件。它将触发所有未处理的异常。在那里你可以捕获它，或者更确切地说，设置一个断点并使用堆栈跟踪来查看异常来自哪里。

Answer 2

错误框并不意味着引发了异常。错误框可以在代码中显式显示。

所以，您的问题似乎是“如何防止第 3 方代码按设计运行？”。除了反编译二进制文件之外，恐怕我不能提供太多建议，尤其是如果您没有源代码。

如果您有源代码并且知道需要替换的例程，您可以编写自己的替换并在运行时“劫持”例程。例如，fastcode 项目使用这种方法来替换 delphi 的例程，而无需重新编译 VCL。您可以在他们的项目中看到实现。

http://fastcode.sourceforge.net/

单位：FastcodePatch.pas

Answer 3

这里是

 private
    { Private declarations }
  public
   procedure MyExceptionHandler(Sender : TObject; E : Exception ); //define exception handler
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyExceptionHandler(Sender:TObject;E:Exception);
begin
    //Do nothing
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := MyExceptionHandler;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Generate an exception
  asm
  mov eax,8272
  mov [eax],$2FFFFF
  end 
end;