剪贴板操作

void __fastcall TForm1::Button6Click(TObject *Sender){    HANDLE hHeap;    hHeap = GetProcessHeap();//获取进程堆    LPTSTR lpszText="hello world";    LPTSTR lpData= (char*)HeapAlloc(hHeap,0,100);//在当前堆中分配空间    lstrcpy(lpData,lpszText);    OpenClipboard(this->Handle);//打开剪贴板    EmptyClipboard();//清空剪贴板    SetClipboardData(CF_TEXT,lpData);//写入剪贴板    CloseClipboard();//关闭剪贴板    OpenClipboard(this->Handle);   //打开剪贴板    char * lpClipData = new char[200];    lpClipData = (char*)GetClipboardData(CF_TEXT);/读出剪贴板    ShowMessage(lpClipData); //显示内容}