🚀 go-pugleaf

To be more specific i built the following test project...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
         if(OpenDialog1->Execute())
                 Label1->Caption=OpenDialog1->FileName;
         else
                 Label1->Caption="";
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
         PopupMenu->Items->Clear();
         if(Label1->Caption.IsEmpty())
                 return;
         unsigned long eaten=Label1->Caption.WideCharBufSize();
         wchar_t *buf=new wchar_t[eaten];
         Label1->Caption.WideChar(buf,eaten);
         IShellFolder *shl;
         ITEMIDLIST *item;
         if(SHGetDesktopFolder(&shl)!=NOERROR)
         {
                 ShowMessage("Desktop error");
                 return;
         }
         if(shl->ParseDisplayName(NULL,NULL,buf,&eaten,&item,NULL)!=NOERROR)
         {
                 ShowMessage("Parse error");
                 return;
         }
         if(item==NULL)
         {
                 ShowMessage("item failure");
                 return;
         }
         void *intface;
         if(shl->BindToObject(item,NULL,IID_IContextMenu,&intface)!=NOERROR)
         {
                 ShowMessage("Bind error");
                 return;
         }
         shl=(IShellFolder*)intface;
         if(shl->GetUIObjectOf(NULL,1,(const ITEMIDLIST 
**)&item,IID_IContextMenu,0,&intface)!=NOERROR)
         {
                 ShowMessage("GetUI error");
                 return;
         }
         IContextMenu *menu;
         menu=(IContextMenu*)intface;
         eaten=menu->QueryContextMenu(PopupMenu->Handle,0,1,50,0);
         Label1->Caption=eaten;
         PopupMenu->Popup(10,10);
}

there is always a bind error. Can you show me what i should do to see
the popup menu??? what am i doing wrong?