如何监视剪贴板

　　在Form1的.h的private加上：

void __fastcall ClipboardChanged(TMessage& Msg);

在Form1的.h的public加上：

BEGIN_MESSAGE_MAP

　MESSAGE_HANDLER(WM_DRAWCLIPBOARD,TMessage,ClipboardChanged)

END_MESSAGE_MAP(TForm)

在Form1的.cpp内加上：

void __fastcall TForm1::ClipboardChanged(TMessage& Msg)

{

　POINT MousePos;

　GetCursorPos(&MousePos);

　PopupMenu4->PopupComponent=Form1;

　PopupMenu4->Popup(MousePos.x,MousePos.y); //一有变化,就弹出一个菜单，复制,剪切或清除都能引发此函数

}

在Form1的.cpp内有一个ToolButton

void __fastcall TForm1::ToolButton9Click(TObject *Sender)

{

　static HWND LastHandle;

　static bool clip=false;

　if(clip==true)

　{

　　ToolButton9->Down=false;

　　ChangeClipboardChain(Form1->Handle,LastHandle); //结束监视

　}

　else

　{

　　ToolButton9->Down=true;

　　Clipboard()->Clear();

　　Application->Minimize();

　　LastHandle=SetClipboardViewer(Form1->Handle); //启动监视

　}

　clip=!clip;

}