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;
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
