🚀 go-pugleaf

Good Day,

I need to get the text in clipboard everytime it is changed by any
application, I found an old thread which was about setting my window as a
ClipboardViewer and receive the messges that will inform my app. with the
new values add to the clipboard
the code that was fixed by Gambit and which I tried to use was like the
following
===============================================================
Unit1.h file
-----------

private: // User declarations

HWND HwNd;
public:  // User declarations

 MESSAGE void __fastcall ChangeChain(TMessage &);
 MESSAGE void __fastcall MyNotify(TMessage &);

BEGIN_MESSAGE_MAP
 MESSAGE_HANDLER(WM_CHANGECBCHAIN,TMessage,ChangeChain)
 MESSAGE_HANDLER(WM_DRAWCLIPBOARD,TMessage,MyNotify)
END_MESSAGE_MAP(TForm)
...

Unit1.cpp file
---------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 HwNd = SetClipboardViewer(Application->Handle);
}
file://-------------------------------------------------------------
void __fastcall TForm1::ChangeChain(TMessage& Msg)
{
 if((HWND)Msg.WParam == HwNd)
   HwNd = (HWND)Msg.LParam;

 PostMessage(HwNd, WM_CHANGECBCHAIN, (WPARAM)Msg.WParam,
(LPARAM)Msg.LParam);

}
file://---------------------------------------------------------------------
------
void __fastcall TForm1::MyNotify(TMessage& Msg)
{
// you only want to add text if there is actually text available
    if(IsClipboardFormatAvailable(CF_TEXT))
    {
        if(OpenClipboard(Handle))
        {
            HANDLE cbh = GetClipboardData(CF_TEXT);
            if(cbh != NULL)
            {
                AnsiString text = AnsiString((char*)GlobalLock(cbh));
                GlobalUnlock(cbh);

                Memo1->Text = text;
            }
        }
        CloseClipboard();
    }
}
file://---------------------------------------------------------------------
------
===============================================================


the problem is that when I run the application it does nothing after I
execute the SetClipboardViewer(). Do I need to call something or do I need
to add anything else
I just don't know what is wrong with this ?

Thanks in advance