Fórum Salvar página aberta no TWebBrowser #320682

var
oStringList: TStringList;
begin
oStringList := TStringList.Create;
try
oStringList.Text := WebBrowser1.OleObject.Document.Body.InnerHTML;
oStringList.SaveToFile(´c:\teste.html´);
finally
oStringList.Free;
end;
end;