100分求解TWebBrowser的关于ExecWB方法出错的问题，高手出马吧

Question

我的代码如下：
  wbMailBody.ExecWB(OLECMDID_SELECTALL,OLECMDEXECOPT_DODEFAULT);
  wbMailBody.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT);
执行第一步的SELECTALL是真确的，但当执行COPY（第二步时抛出异常为:试图吊销一个未注册的拖放目标),我的目的是想一个TWebBrowser实例当前打开的网页上的所有内容复制到另外一个编辑控件上去。

Answer 1

// Put this Code at the end of your unit:
//uses ActiveX;initialization
  OleInitialize(nil);finalization
  OleUninitialize;

Answer 2

是不是差了两个参数啊？
应该这样吧
wbMailBody.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam)
拷贝我是这样做的
.......
var
  Doc: IHtmlDocument2;
begin
  Doc :=WebBrowser1.Document as IHtmlDocument2;
  Doc.ExecCommand('SELECTALL',false,EmptyParam);
  Doc.ExecCommand('copy',false,EmptyParam);
..............如果只是读出不用复制粘贴这样麻烦吧，直接读出源代码不就行了？？