请问在网页中怎样做一个[网页另存为..]的按钮(50分)

功能和IE的一样,把当前网页下载保存到本地

用到的是WebBrowser，代码如下：
{+-----------------------------------------------------+
| "文件"->"另存为" |
+-----------------------------------------------------+ }
procedure TMainForm.A1Click(Sender: TObject);
begin
try
WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, EmptyParam, EmptyParam);
Except
Application.MessageBox('初始化时出现错误，不能保存文件 ！ ','信息提示',MB_OK+MB_ICONINFORMATION);
end;
end;

谢谢,可是我想在html文档里加上这样一个功能的按钮,请指教

JavaScript: document.execCommand('SaveAs','true')

多人接受答案了。

用下面的就可以了！
<a href=# onclick="javascript:WebBrowser.ExecWB(4,1)">保存</a> <object id="WebBrowser" width=0 height=0

classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></object>
給分吧：）