请问关于错误处理方面的事(大侠们救我)在线等待

Question

怎样将系统提示的带错误代码的提示屏蔽呢?
我用CLIENTSOCKET的ONERROR事件捕获当客户端联结不上服务器时的错误,
用
procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
beginif errorcode=10061 then
begin
ShowMessage('联结不到服务器');
n2.Enabled:=True;
end;
end;
联结不上时我设的提示出了,但系统的错误提示也出了,怎么样才能把系统的错误提示去掉.

Answer 1

try
  ...............
  ...............
  ............//程序操作
except    //如果失败
  ShowMessage('联结不到服务器');
end;

Answer 2

你是在Delphi的编译环境中运行，当然由Delphi先捕获错误。离开Delphi运行环境，直接运行你编译出来的Exe程序，就会只出现你设计的出错提示了！

Answer 3

恩，编译环境下是要报错的，直接执行exe就不会了！

Answer 4

我试了,不行,他本身的错误提示消息还会出的.我试着自己做个错误处理类可是try
  clientsocket1.open;
except
on e:TConFail do
 e.warning();//这里根本走不到啊.我服了,搞不定了.
end;

Answer 5

在uses列表中需包含SysUtils单元，不然try...except...end形同虚设。

Answer 6

另外你的ErrorCode为：if errorcode=10061 then...返回的ErrorCode真为该值吗？

Answer 7

自定义一个过程，主窗体启动时:APPLICATION.EXCEPTION:=自定义过程，可以屏蔽

Answer 8

不好用啊.提示没有定义EXCEPTION.5555555555555555555