注：此文中程序原為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
