WebBrowser 源代码保存

1. uses mshtml;  
2. var  
3.     iall : IHTMLElement;  
4. begin  
5.    if Assigned(WebBrowser1.Document) then  
6.    begin  
7.      iall := (WebBrowser1.Document AS IHTMLDocument2).body;  
8.      while iall.parentElement <> nil do  
9.      begin  
10.        iall := iall.parentElement;  
11.      end;  
12.      memo1.Text := iall.outerHTML;  
13.    end;  
14. end;