Unit1.h

class TForm1 : public TForm
{
__published:        // IDE-managed Components
        TLabel *Label1;
        TLabel *Label2;
        TButton *BTMcopy;
        TButton *BTMpaste;
        void __fastcall BTMcopyClick(TObject *Sender);
        void __fastcall BTMpasteClick(TObject *Sender);
private:        // User declarations
public:                // User declarations
        __fastcall TForm1(TComponent* Owner);
};

Unit1.cpp

 
#include     //---------------------------------------------------------------------------
void SetCopyData(TLabel *LabSender)
{
        LPTSTR  lptstrCopy;
        HGLOBAL hglbCopy;            if(LabSender == NULL)
            return;            if (!OpenClipboard(NULL))
            return;            // Allocate a global memory object for the text.
        hglbCopy = GlobalAlloc(GMEM_MOVEABLE,LabSender->Caption.Length());
        if (hglbCopy == NULL)
        {
            CloseClipboard();
            return;
        }            // Lock the handle and copy the text to the buffer.             lptstrCopy = (char*)GlobalLock(hglbCopy);
        memcpy(lptstrCopy, LabSender->Caption.c_str(), LabSender->Caption.Length());
        GlobalUnlock(hglbCopy);            // Place the handle on the clipboard.
        SetClipboardData(CF_TEXT, hglbCopy);            CloseClipboard();
}
//---------------------------------------------------------------------------
void GetCopyData(void)
{
    void* lpstr;
    HANDLE hdlRecieve;        if (!IsClipboardFormatAvailable(CF_TEXT))
            return;
    if (!OpenClipboard(NULL))
            return;        hdlRecieve = GetClipboardData(CF_TEXT);
    lpstr = GlobalLock(hdlRecieve);
    Form1->Label2->Caption = (char*)lpstr;        GlobalUnlock(hdlRecieve);
    CloseClipboard();
}
//---------------------------------------------------------------------------    void __fastcall TForm1::BTMcopyClick(TObject *Sender)
{
        SetCopyData(Label1);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::BTMpasteClick(TObject *Sender)
{
        GetCopyData();
}
//---------------------------------------------------------------------------

------------------------------- 數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖VS東方不敗:D Programmers Guide http://anpino.begin.8d8d.com 發表人 - anpino 於 2004/01/10 14:18:03