这个不能复制的问题很早前就遇见过了 一直没有去再深入研究它

今天又碰到这个问题不能不解决啊 搜了一下找到重点如下

在uses后面加上一个Activex;

在最后面的那个end.之前加上下面四条 就能轻松解决不能复制的问题


Delphi代码
initialization
OleInitialize(nil);

finalization
OleUninitialize;