Webbrowser execCommand 與 ExecWB的執行條件

近日做一程式，内嵌TWebBrowser，當使用者在browser内select一部分内容，想要copy時，可以使用以下指令： 

       FMsgDoc2.execCommand('copy',false,0);

        或者

       self.WebBrowserMsg.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT,   EmptyParam,EmptyParam)

      但僅僅是加上這些指令，并不能生效，結果也不能将選中的文字複制了剪貼闆上，要解決此問題，必須在uses裡引用：ActiveX，并且加上如下代碼（最好放在unit的end之前）：

initialization

  OleInitialize(nil);

  finalization

  try

    OleUninitialize;

  except

  end;

    本文轉自 OldHawk  部落格園部落格，原文連結：http://www.cnblogs.com/taobataoma/archive/2007/07/28/834856.html，如需轉載請自行聯系原作者