Delphi中TWebBrowser中注入Js

最近幫朋友做一個軟體，其中要自動化某網頁中的操作，最簡的操作是呼叫自己寫的程式碼。

程式碼如下：

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可是個好東西。功能非常強大，但其又是把雙刃劍。一定要仔細使用。