辨别剪贴板上全部可用的格局[VC/C++编程]

注:此文中程序原为VB书写.老妖改成CB版.

假如你想知道剪贴板上能否包含来自excel的数据,大概你想辨别rich text格局能否可用以激活粘贴菜单时,以下程序可以奉告你若何辨别当前剪贴板上全部可用的格局,包含自定义格局.

// Unit1.cpp 开始-----------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//已知的剪贴板数据格局以下:
char *strClipboardFormats[17]={"cf_text","cf_bitmap","cf_metafilepict","cf_sylk",
　　　　　　　　　　　　  "cf_dif","cf_tiff","cf_oemtext","cf_dib","cf_palette",
　　　　　　　　　　　　  "cf_pendata","cf_riff","cf_wave","cf_unicodetext",
　　　　　　　　　　　　  "cf_enhmetafile","cf_hdrop","cf_locale","cf_max"};
//获得自定义数据格局的名称
String GetUnknownFormatName(long lFormatID);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
　　　　 : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
　 int lr;
　 int icount;
　 ListBox1->Items->Clear();
 
　 if(OpenClipboard(Handle))
　 {
　　 try
　　 {
　　　 lr=EnumClipboardFormats(0);
　　　 if(lr!=0)
　　　 {
　　　　 do
　　　　 {
　　　　　 icount++;
　　　　　 if(lr<18)
　　　　　　 ListBox1->Items->Add(strClipboardFormats[lr]);
　　　　　 else
　　　　　　 ListBox1->Items->Add(GetUnknownFormatName(lr));
　　　　　 lr = EnumClipboardFormats(lr);
　　　　 }while(lr!=0);
　　　 }
　　 }
　　 catch(...)
　　 {
　　　 CloseClipboard();
　　 }
　 }
　 CloseClipboard();
}
//---------------------------------------------------------------------------
String GetUnknownFormatName(long lFormatID)
{
　 //关于自定义格局,我们可以向剪贴板要注册过的名字:
　 char strBuf[255];
　 long lr;
　 lr = GetClipboardFormatName(lFormatID,strBuf,255);
　 if(lr!=0)
　　 return String(strBuf);
　 else
　　 return "-----None-------"; 
}
//---------程序完毕--------------------

当你点击按钮后,当前全部可用的剪贴板数据格局将会增添到ListBox中.列表区被设为格局名,每一行的数据被设为剪贴板格局的id.要在列表中看到自定义格局,试试在点击按钮之前,从Word、写字板或IE中复制一些东西.

---测试环境:W2k ADV Server + sp3

BCB 6.0 + sp3