🚀 go-pugleaf

"qyte" <gyte@vivodinet.gr> wrote in message
news:42b9471a$1@newsgroups.borland.com...

> I cannot seem to find what it is i have to pass where the REFIID
> riid parameter is required in two of the above functions.

You use IID_IShellFolder and IID_IContextMenu.

> could you post a reply of some code?

    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;
    }

    {
        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();
                }
            }
            CoTaskFreeMem(pidl);
        }
        Desktop->Release();
    }


Gambit