精华公布栏

发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标题: Delphi编程 -- 5.2 防止Win95显示严重错误
发信站: 哈工大紫丁香 (2000年09月01日16:11:40 星期五), 站内信件

如何防止Win95显示严重错误。
　　不管你的程序如何反复调试，交给用户之后，总有可能发生你意想不到的错误
，如何避免Win95显示出白色的窗口，告诉你的用户发生了难堪的意外错误呢？我
们可以这样做：
　　var
　　wOldErrorMode：Word；
　　begin
　　／／tellwindowstoignorecriticalerrorsandsavecurrenterrormode
　　wOldErrorMode：ΚSetErrorMode（SEM—FAILCRITICALERRORS）；
　　try
　　／／codethatmightgenerateacriticalerrorgoeshere．．．
　　finally
　　／／gobacktopreviouserrormode
　　SetErrorMode（wOldErrorMode）；
　　end；
　　end；
　　主要是利用SetErrorMode（）来完成这一功能。

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]