使用InternetExplorer.Application
InternetExplorer.Application为IE提供OLE方式接口,利用它我们可以开启浏览器,并对其行为进行任意的控制,犹如控制Word.Application一样。可以控制的属性和方法请参考MSDN: InternetExplorer Object (ProgIE/workshop/browser/webbrowser/reference/objects/internetexplorer.htm),以下为一个简单的例子,并有一个ShowBrowserBar BUG的修正,ShowBrowserBar的方法按MSDN说可以不用给的,实际上不行,必须给出完整的参数才能正确掉用,否则报Type mismatch,即类型不匹配的错误。
uses ComObj , ActiveX ; procedure TForm1 . Button1Click ( Sender : TObject ); var IE : OleVariant ; Bar : Variant ; V : Variant ; begin IE := CreateOleObject ( 'InternetExplorer.Application' ); IE . Height := 400 ; IE . Width := 600 ; IE . Visible := True ; IE . Navigate ( 'http://kingron.delphibbs.com' ); Bar := '{30D02401-6A81-11D0-8274-00C04FD5AE38}' ; V := True ; IE . ShowBrowserBar ( Bar , V , EmptyParam ); end ;