动态的修改WebBrowser加载页面的内容

 使用WebBrowser加载页面时，有些时候，为了特殊的目的，要修改加载后的页面
为了实现这个目的，必须使用IHTMLTxtRange接口
代码如下：

01 procedure DoChangePageCode(Doc: IDispatch);
02 var
03 tr: IHTMLTxtRange;
04 s: string;
05 begin
06 tr := ((Doc as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
07 s := tr.htmlText; // 取出页面的代码
08 // 此处就能随意改了
09 tr.pasteHTML(s); // 改完后的代码写回去
10 end;