WebBrowser读取网页脚本中的变量

假如网页中有这样的语句:
<script>
var
str = "Hello";
i = 99;
</script>

//读取网页脚本中的变量:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: Integer;
begin
s := WebBrowser1.OleObject.document.Script.str;
i := WebBrowser1.OleObject.document.Script.num;
ShowMessage(s); //Hello
ShowMessage(IntToStr(i)); //99

//也可以这样读:
s := WebBrowser1.OleObject.document.parentWindow.str;
i := WebBrowser1.OleObject.document.parentWindow.num;
ShowMessage(s); //Hello
ShowMessage(IntToStr(i)); //99
end;

转自：http://hi.baidu.com/dwbboy/blog/item/737efa1fe1bdab01314e1526.html