🚀 go-pugleaf

i have made the following project based on your reply.

LPITEMIDLIST GetNextItemID(LPCITEMIDLIST pidl)
{
         if( pidl == NULL )
             return NULL;
         int cb = pidl->mkid.cb;
         if( cb == 0 )
             return NULL;
         pidl = (LPITEMIDLIST) (((LPBYTE) pidl) + cb);
         return (pidl->mkid.cb == 0) ? NULL : (LPITEMIDLIST) pidl;
}

UINT GetSize(LPCITEMIDLIST pidl)
{
         UINT cbTotal = 0;
         if( pidl != NULL )
         {
             cbTotal += sizeof(pidl->mkid.cb);
             while( pidl != NULL )
             {
                 cbTotal += pidl->mkid.cb;
                 pidl = GetNextItemID(pidl);
             }
         }
         return cbTotal;
}

LPITEMIDLIST MakeCopy(LPCITEMIDLIST pidl)
{
         LPITEMIDLIST pidlTemp = (LPITEMIDLIST) pidl;
         UINT cb = GetSize(pidl);
         LPITEMIDLIST pidlRet = (LPITEMIDLIST) CoTaskMemAlloc(cb);
         if( pidlRet != NULL )
             CopyMemory(pidlRet, pidl, cb);
         return pidlRet;
}

LPITEMIDLIST GetChildID(LPITEMIDLIST pidl)
{
         LPITEMIDLIST pidlRet = NULL;
         if( pidl != NULL )
         {
             if( pidl->mkid.cb )
             {
                 LPITEMIDLIST pidlNext = pidl;
                 while( pidlNext )
                 {
                     pidl = pidlNext;
                     pidlNext = GetNextItemID(pidl);
                 }
                 pidlRet = MakeCopy(pidl);
                 if( pidlRet == NULL )
                     return NULL;
                 pidl->mkid.cb = 0;
             }
         }
         return pidlRet;
}

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



void __fastcall TForm1::Button2Click(TObject *Sender)
{
         if(Label1->Caption.IsEmpty())
                 return;
         IShellFolder *Desktop = NULL;
         if( SUCCEEDED(SHGetDesktopFolder(&Desktop)) )
         {
             LPITEMIDLIST pidl = NULL;
             ULONG ulEaten = 0;

             WideString Path = Label1->Caption;
             if( SUCCEEDED(Desktop->ParseDisplayName(NULL, NULL, 
Path,&ulEaten, &pidl, NULL)) )
             {
                 LPITEMIDLIST pidlChild = GetChildID(pidl);
                 if( pidlChild != NULL )
                 {
                     IShellFolder *ParentFolder = NULL;
                     if( SUCCEEDED(Desktop->BindToObject(pidl, 
NULL,IID_IShellFolder, (LPVOID*)&ParentFolder)) )
                     {
                         IContextMenu *menu = NULL;
                         if( SUCCEEDED(ParentFolder->GetUIObjectOf(NULL, 
1,(LPCITEMIDLIST*)&pidlChild, IID_IContextMenu, NULL, (LPVOID*)&menu)) )
                         {
                             Label1->Caption 
=menu->QueryContextMenu(PopupMenu->Handle, 0, 1, 100, CMF_NORMAL);
                             menu->Release();
                             PopupMenu->Popup(10, 10);
                         }
                     }
                     ParentFolder->Release();
                 }
             }
             CoTaskMemFree(pidl);
         }
         Desktop->Release();
}

the problem is that the popupmenu doesn't get any item in it at all.
there must be something wrong inside your code. the Label1 after i run 
button 2 takes the value 114. is it right???