调用保存对话框

procedure UseHtmlDialog(htmlName:string);

var

a,b:OleVariant;

c:integer;

begin

a:=0;

b:=0;

WebBrowser1.Navigate(htmlName);

c:=WebBrowser1.QueryStatusWB(OLECMDID_SELECTALL);

if c>0 then

WebBrowser2.ExecWB(OLECMID_SAVEAS,OLECMEXCOPY_DONTPROMPTUSER,EmptyParam,EmptyParam)

else

Showmessage('命令不能执行');

end;