如何避免显示错误？

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或外部应用程序显示的框？

你说'event',但事件处理程序也可以包含try..except块.

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