C++builder5写的剪贴板小程序，运行界面如下：例如：打开一个位图后（.bmp）。点击【拷贝数据】后，可以在新建的word中直接复制即可。（也就是说，拷贝数据，调用的是系统的剪切板。。。。）源代码如下：//---------------------------------------------------------------------------#include<vcl.h>#pragmahdrstop#include"Unit1.h"#include"Clipbrd.hpp"//《-----------《------------注意//---------------------------------------------------------------------------#pragmapackage(smart_init)#pragmaresource"*.dfm"TForm1*Form1;//---------------------------------------------------------------------------__fastcallTForm1::TForm1(TComponent*Owner):TForm(Owner){}//---------------------------------------------------------------------------void__fastcallTForm1::FormCreate(TObject*Sender){//设置各个按钮的有效状态Form1->Button1->Enabled=true;Form1->Button2->Enabled=true;Form1->Button3->Enabled=true;Form1->Button4->Enabled=true;Form1->Button5->Enabled=true;Form1->Button6->Enabled=true;Form1->RichEdit1->Text="";//清空文本框的内容Form1->OpenDialog1->Title="请选择一个文本文件：";Form1->OpenDialog1->InitialDir="c:\\pwin98";Form1->OpenDialog1->Filter="AllFiles(*.*)|*.*|TextFile（*.txt）|*.txt";Form1->OpenPictureDialog1->Title="请选择一个图像文件：";Form1->OpenPictureDialog1->InitialDir="c:\\pwin98";Form1->OpenPictureDialog1->Filter="AllFiles(*.*)|*.*|BitmapFiles（*.bmp）|*.bmp";}//---------------------------------------------------------------------------void__fastcallTForm1::Button1Click(TObject*Sender){if(Clipboard()->HasFormat(CF_TEXT))//如果剪切板上的数据为文本格式{Form1->RichEdit1->Visible=true;Form1->BitBtn1->Visible=false;//设置控件可见状态RichEdit1->Text=Clipboard()->AsText;//显示剪切板上的文本}elseif(Clipboard()->HasFormat(CF_BITMAP))//如果剪切板上的数据为图像格式{Form1->BitBtn1->Visible=true;Form1->RichEdit1->Visible=false;//设置控件可见状态Form1->BitBtn1->Glyph->Assign(Clipboard());//显示剪切板上的图像}else{Form1->BitBtn1->Visible=false;Form1->RichEdit1->Visible=false;//设置控件可见状态}}//---------------------------------------------------------------------------void__fastcallTForm1::Button2Click(TObject*Sender){if(Form1->