WebBrowser保存为当前页面为mht文件

Question

WebBrowser保存为当前页面为mht文件
var
  pvaIn,pvaOut:OLEVariant;   
begin   
  pvaIn:=0;   
  pvaOut:=0;   
  WebBrowser1.ExecWB(OLECMDID_SAVEAS,   OLECMDEXECOPT_PROMPTUSER, pvaIn,pvaOut);   
end;  这样能够保存到本地，请问怎么样才能够让保存到默认的文件夹中呢？（我不想要那个弹出的对话框，让它保存到默认路径，如何实现）