Delphi中WebBrowser（或者EmbeddedWebBrowser）控件打开部分网站报“Invalid floating point operation”异常的解决方法

最近用EmbeddedWB控件做浏览器相关应用的时候，发现有些网页只要一打开就一定会蹦出一个“Invalid floating point operation”异常（关掉异常对话框以后，浏览器无响应），而程序仅仅是一句
WebBrowser1.Navigate(Edit1.Text);
貌似很多含有Silverlight元素的网页打开时都会带出这个bug。大概的情况是,在使用一些浮点操作时,微软默认设计会抛出一系列的异常。这些异常按理说不应该阻止程序运行。但不知道为什么,Delphi默认是截获后又把异常抛了出来,被系统截获就会影响程序运行了。Borland给的解决方法是,加一句

Set8087CW(Longword($133f));

来关闭这个机制. 你可以加在form的OnCreate事件里。

参考：《TWebbrowser打开paypal出错》http://blog.sina.com.cn/s/blog_48d1e7820100e1yw.html

Set8087CW($133f); { Disable all fpu exceptions }
FPU： Float Point Unit，浮点运算单元
功能：禁止所有浮点运算异常