在 Delphi 中禁用所有运行时错误消息?

camsedfj  于 2023-05-28  发布在  其他
关注(0)|答案(1)|浏览(226)

什么是最标准和最简单的方法来告诉一个防止 Delphi 程序显示任何消息窗口时,用户运行的exe?
例如,这是我的程序与Web浏览器对象,当网站有错误,Geko组件显示错误给用户...我想阻止它。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, MOZILLACONTROLLib_TLB;

type
  TForm1 = class(TForm)
    MozillaBrowser1: TMozillaBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   MozillaBrowser1.Navigate('http://www.xeex.ir');
end;

end.
lsmepo6l

lsmepo6l1#

一般来说,你要求做的事是不可能的。您不能应用将停止显示所有错误对话框的设置。
对于本机 Delphi 异常,如果愿意,可以选择忽略它们。这不是个好主意。对于由第三方代码显示的消息框,您需要该代码提供一种方法来抑制这些错误。如果这种机制存在,你当然可以使用它。但如果没有机制存在,那么你就不走运了。每个不同的库将使用不同的机制。

相关问题