Googleando encontré ésto, no lo pude testear porque no tengo tiempo. Fijate si te sirve:
Saving Full Internet Explorer pages as MHT...
This is a Delphi conversion of the routine contributed by Onega
found at http://codeguru.earthweb.com/ieprogr...WholePage.html
MrBaseball34
Código Delphi
[-]
uses Winndows, ..., ADODB_TLB, CDO_TLB;
procedure SaveWholePage
( AURL: String
; AFileName: TFileName
; AView: Boolean
; AViewer: TWebBrowser
);
var
LMsg: IMessage;
LConf: IConfiguration;
LFlds: Fields;
LStrm: _Stream;
begin
LMsg := CoMessage.Create;
LConf := CoConfiguration.Create;
try
LMsg.Configuration := LConf;
LMsg.CreateMHTMLBody(AURL, cdoSuppressAll, '', '');
LStrm := LMsg.GetStream;
LStrm.SaveToFile(AFileName, adSaveCreateOverWrite);
finally
LMsg := nil;
LConf := nil;
LStrm := nil;
if AView then
AViewer.Navigate(AFileName);
end;
end;