如何監視剪貼板

　　在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;
　　 }