pb或者cb及delphi中用WEBBROWSER无法复制粘贴的解决方式

在做桌面软件的过程中遇到一个问题：自带的webbrowser无法执行复制粘贴动作。

经过查询发现如下解决方法：

在webbrowser中显示的网页，选中其中文字进行复制好像不起作用，不管是用鼠标右键还是直接CTRL-C，都没有复制到剪切板去，无法粘贴出来。 

在窗体的OnCreate事件中加入如下代码： 
OleInitialize(nil); 

在OnClose事件中加入代码： 
OleUninitialize; 


procedure TForm1.FormCreate(Sender: TObject); 
begin 
  OleInitialize(nil); 
end; 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  OleUninitialize; 
end; 

在用pb或者cb或者delphi开发webbrowser类软件中，有遇到无法复制粘贴(ctrl+c,ctrl+v)等问题的朋友可参考此方法试下。