如何屏蔽错误对话框？

[olo]

iShellFolder有个EnumObject方法，调用时如果产生错误，
会弹出一个对话框来。
我想屏蔽这个对话框，用
try
aFolder.EnumObject(...);
except
end;

和SetErrorMode(SEM_FAILCRITICALERRORS)都不好使。

[kola]

WINDOWS是基于消息的系统,使用消息观察器查看一下出错时WINDOWS的发出消息,然后在
你的程序里截取这个消息,做相应的处理.期待你的成功!

[CJ]

interesting
try to handle the exception with a user defined procedure
procedure myexception...
...
application.onexception := myexception;

[olo]

是大富翁的CJ吧？

前面已经说过application.onexception := myexception;不好使。

[ahfei]

的确听说过这种情况。关注！

[CJ]

呵呵，SORRY，是我
排除agui的可能，因为我的方法也不灵:(
检查 EnumObject 的返回值看看
Return Values
This method supports the standard return value E_FAIL, as well as the following:

S_OK
Enumerator successfully returned.
E_NOTIMPL
Object enumeration not supported.

顺便用winsight之类的东西检查一下？//呵呵

[光明山人]

有可能这个对话框根本就不是Windows捕捉到的异常错误，可能是错误捕捉后弹的对话框。如在你自己的构件里写：
try
a := 4 div 0;
except
MessageBox( handle, '零除错误', '错误', MB_OK );
end;

那构件的使用者如何都去除不了这个信息。

[olo]

CJ：
抱歉的说，一开始就是用这个，不行。

[fstao]

1、直接运行Exe文件。
或者
2、进入delphi，把Integrated debugging去掉。

[olo]

fstao;不中。

[olo]

fstao;
不好使。

[olo]

sorry,回复按多了。

[xubin_sh]

aFolder是不是一个有效指针
在得到aFolder时有没有进行判断？

[tiger]

同意agui

[olo]

xubin_sh:
aFolder当然是有效的。判断过。

[laotan]

异常在IDE里是无法避免的，执行Exe文件应该不会出现对话框

[sirius]

写一个run time debuger服务程序, 并且注册为系统缺省的debuger
重启动后系统的错误就被接管了

[olo]

不是在IDE里。

[olo]

to Sirius:
不至于吧。

[Lin]

barton:
请将D5所有出错提示的中文版邮寄一份给我([e-mail])？
先谢！

[Lin]

barton:
请将D5所有出错提示的中文版邮寄一份给我([e-mail]？
先谢！