Ако съм те разбрал правилно, това е което търсиш:

function GetHTML(WebBrowser: TWebBrowser): String;

var iall: IHTMLElement;

begin

  Result := '';

  if Assigned(WebBrowser.Document) then

  begin

     iall := (WebBrowser.Document AS IHTMLDocument2).body;



     while iall.parentElement <> nil do

       iall := iall.parentElement;



     Result := iall.outerHTML;

  end;

end;

Съдържаниет е скрито
Влезте за да го видите