在DELPHI程序中如何将指定的页面保存下来?

Question

托了，我是想将比如当前的这一IE页面存下来包括图片正如IE中的另存为只是不知道在程序中是如何实现的。各位指点。

Answer 1

是用TWebBrowser吗？如果是，则：
webbrowser1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT);

Answer 2

可是它却提示说“试图激活一个未注册的类”这是什么意思，
webbrowser经常出现莫名其妙的提示，我都搞不懂是为什么？

Answer 3

请参考
http://www.csdn.net/expert/Topic/43115.shtm

Answer 4

uses UrlMon;  function DownloadFile(Source, Dest: string): Boolean;
  begin
    try
      Result :=  UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
    except
      Result := False;
    end;
  end;
调用：
begin
  if DownloadFile  ('http://www.delphi3000.com/index.htm', 'c:\Temp\index.htm') then
   ShowMessage('Download succesful')
  else
   ShowMessage('Download unsuccesful')