实现webbrowser中的打印、复制、全选等编辑功能

在使用WebBrowser控件的时候，我们想实现IE中的比如打印、复制、刷新等功能，在SHDocVw单元中有完整的常量定义
源代码网推荐
源代码网推荐 比如：
源代码网推荐 OLECMDID_COPY
源代码网推荐 OLECMDID_SELECTALL等等
源代码网推荐 下面的代码完成了WebBrowser的刷新页面的功能，其他的功能可以举一反三。
源代码网推荐
源代码网推荐 procedure TForm1.Button1Click(Sender: TObject);
源代码网推荐 var
源代码网推荐 a,b: OleVariant;
源代码网推荐 begin
源代码网推荐 a:=0;
源代码网推荐 b:=0;
源代码网推荐 c := WebBrowser1.QueryStatusWB(OLECMDID_REFRESH );
源代码网推荐 if c>0 then
源代码网推荐 WebBrowser1.ExecWB(OLECMDID_REFRESH,
源代码网推荐 OLECMDEXECOPT_PROMPTUSER,
源代码网推荐 a, b)
源代码网推荐 else
源代码网推荐 showmessage("命令不能执行!");
源代码网推荐 end;
源代码网推荐
源代码网推荐 procedure TForm1.FormCreate(Sender: TObject);
源代码网推荐 begin
源代码网推荐 WebBrowser1.Navigate("http://www.codelphi.com");
源代码网推荐 end;