在主窗体类的 private 属性内定义这个过程
procedure Onexception(Sender: TObject; E: Exception);
procedure TMainFrm.Onexception(Sender: TObject; E: Exception);
begin
  //...做你想做的
  Abort;
end;在主窗体的OnCreate 事件加入这句话.
Application.OnException := Onexception;
好了,执行 exe,不要在调试状态下.一般的错误肯定不见了很恐怖.这里有异常的讨论,你去看看。
http://www.csdn.net/expert/Topic/42174.shtm

解决方案 »

  1.   

    在Delphi的环境中设置一下,有一个Debug Exception选项,可以设置是不是由Delphi的默认处理过程来处理异常,改成没有或者由用户处理即可。
      

  2.   

    在循环中写try..finally..end块

    while a do
    begin
    try
    //{your sentence}
    finally
    //do nothing...
    end;
    end;
      

  3.   

    can I say:
    在调试环境下用try...except 程序会报异常,并中止,
    但如果你直接运行编译好的 EXE文件程序就不会中止.
      

  4.   

    Kingron(WinAPI) 说的很清楚了嘛!
      

  5.   

    在编译时是可以用金龙的方法。如果在运行时,应该是就用TRY就可以的了  (可以是下面这样的)
    try 
    ...
    except 
    on exception do
    ...
    end;
      

  6.   

    程序出现异常系统首先查找是否有调使环境在运行,有则把错误句并交给调使环境,没有则交给程序,程序异常处理结购则程序处理,否则交还系统处理。大的错误try except 能够屏蔽。这就是为什么debug总在调适的时候冒出来。有屏僻的程序是不会报错的除非某些系统级的错误。刚开始我没有明白你的意思。不好意思。