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

时间:2014-10-05 12:58:46

标签: delphi show messages

当用户运行exe时,告诉阻止Delphi程序显示任何消息窗口的最标准和简单方法是什么?

例如,这是我的带有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.

1 个答案:

答案 0 :(得分:0)

一般情况下,你无法做出你所要求的事情。您无法应用将停止显示所有错误对话框的设置。

对于本机Delphi例外,如果您愿意,可以选择忽略它们。这不是一个好主意。对于第三方代码显示的消息框,您需要该代码提供一种方法来抑制这些错误。如果存在该机制,您当然可以使用它。但如果没有机制,那么你就不走运了。每个不同的库都将使用不同的机制。