最近幫朋友做一個軟件，其中要自動化某網(wǎng)頁中的操作，最簡的操作是調(diào)用自己寫的代碼。

代碼如下：

procedure TForm1.Button2Click(Sender: TObject);
var
? i:integer;
? h:IHTMLHeaderElement;
? o:OleVariant;
begin
? o:=webbrowser1.OleObject.document.createElement('script');
? o.type:='text/javascript';
? o.text:='var a=1;alert(document);';
? WebBrowser1.OleObject.document.getElementsByTagName('head').item(0).appendChild(o);
end;

注意:WebBrowser中的OleObject可是個好東西。功能非常強大，但其又是把雙刃劍。一定要仔細(xì)使用。

總結(jié)

以上是生活随笔為你收集整理的Delphi中TWebBrowser中注入Js的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。