近日做一程序，内嵌TWebBrowser，当用户在browser内select一部分内容，想要copy时，可以使用以下命令：
FMsgDoc2.execCommand('copy',false,0);
或者
self.WebBrowserMsg.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam)
但仅仅是加上这些命令，并不能生效，结果也不能将选中的文字复制了剪贴板上，要解决此问题，必须在uses里引用：ActiveX，并且加上如下代码（最好放在unit的end之前）：
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;
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end;
本文转自 OldHawk 博客园博客，原文链接：http://www.cnblogs.com/taobataoma/archive/2007/07/28/834856.html，如需转载请自行联系原作者
