Delphi - компонент TWebBrowser

[melmaks]

У кого-нибудь есть идеи как сохранить на диске
веб-страничку средствами Delphi, может как-нить использовать компонент TWebBrowser?

[RaZEr]

Browser.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_PROMPTUSER);

[melmaks]

После такой процедуры, как я понял, всплывет окно SaveAs, а мне нужно контролировать запись файла программно ........?

[RaZEr]

var
SaveDlg: TSaveDialog;
Doc: IHTMLDocument2;
PersistFile: IPersistFile;
begin
SaveDlg := TSaveDialog.Create(Self);
SaveDlg.FileName := 'default.html';
SaveDlg.Filter := 'HTML Files (*.htm,*.html)|*.htm;*.html';
SaveDlg.Title := 'Saving HTML Code to file';
IF SaveDlg.Execute THEN
begin
Doc := Browser.Document as IHTMLDocument2;
PersistFile := Doc as IPersistFile;
PersistFile.Save(StringToOleStr(SaveDlg.FileName),True);
end;

[melmaks]

Спасибо за помощь :)