========还没测试,做个记号============
//非框架结构的网页可以这样
uses MSHTML;
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
vDocument: IHTMLDocument2;
begin
vDocument := TWebBrowser(Sender).Document as IHTMLDocument2;
vDocument.parentWindow.execScript(
'function alert(str){return;} ', 'javaScript ');
end;
//框架的就用IHTMLFrameBase2.contentWindow.execScript