如何用Delphi控制IE浏览器禁用JS？

Question

Delphi 控制打开了诸多网页，但是有些有弹出窗口，想把他屏蔽掉(禁止弹窗),想通过禁用IE脚本的方式达到目的？如何实现？（就象我们操作Internet选项中，禁止运行活动脚本一样）

Answer 1

转：
.改注册表，google下很容易知道，略。2.由IWebBrowser2禁用javascript
參考:http://msdn.microsoft.com/en-us/library/aa770041(VS.85).aspx
  1).實現一個IDispatch
  2).連接到webbrowser 的 DIID_DWebBrowserEvents2連接點上
  3).在invoke裏，處理DISPID_AMBIENT_DLCONTROL事件，去掉DLCTL_DLIMAGES, DLCTL_VIDEOS, and DLCTL_BGSOUNDS標記，加上DLCTL_NO_SCRIPTS， DLCTL_NO_JAVA，DLCTL_NO_DLACTIVEXCTLS ， DLCTL_NO_RUNACTIVEXCTLS等標記。在这里可以控制很多东西的权限，比如activex，图片，脚本，等等。
  PS:记录上述文字时，QQ输入法不知怎么搞的变繁体了3.由IHtmlDocument2禁用javascript
  找了N天，最后想不到绕道designMode搞定（HG同学找到的）。设置designMode为true，但是鱼总带刺，副作用是取得从DOM中取得html代码时，会多一个<meta ...> 标签

Answer 2

我指的网页是在IE浏览器打开的，不是webbrowser。