如何利用WebBrowser保存网页,但不打开"另存为"对话框按路径和指定文件名保存整个网页?

Question

如果利用ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT, EmptyParam, EmptyParam)则会弹出一个"另存为"的对话框,而且文件名是可以任意改的.
请问有没有方法可以不打开这个对话框就可以按程序安排的路径、文件名来保存已打开的网页呢？
如果不能，能否用程序指定“另存为”对话框中的网页命名呢？

Answer 1

谢谢 fayeflash(我爱阿菲) 
继续UP

Answer 2

我从别处看了一个代码 你试试看，希望可以对你有帮助：
你可以使用urlmon单元的方法： urldownloadtofile 就可以解决你的问题了！
先定义一个函数：
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result:=UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result:=False;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFile  ('http://www.sina.com.cn/index.htm 'c:\Temp\index.htm') then
ShowMessage('Download succesful')
else
ShowMessage('Download unsuccesful')
end; 

Answer 3

RA:liunini(妮妮) 
它只是保存了一个快截连接啊