虽然其它实现方法还很多,但这个是最正规的解决方法!<br><br>uses ComObj;<br><br>var<br> IE : OleVariant;<br>procedure TForm1.Button1Click(Sender: TObject);<br> procedure OpenInIE(aURL: string);<br> begin<br> IE := CreateOleObject('InternetExplorer.Application');<br> IE.Visible := true;<br> IE.Navigate(aURL);<br> end;<br>begin<br> OpenInIE('www.delphibbs.com');<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br> IE.Quit;<br>end;