Since IUnknown Interface (which is the stemfather of most of all the Interfaces in the Shell32 Interfaces I see it abit awkward why just this interface shall be "hidden" within the OleExp TypeLib (It was never hidden within the EnumDeskVB TypeLib from 1998).
Here is a little walkaround to make these 3 members availabale/Visible.
You can also add a pidl, path or an object to Create a IShellItem and get the IUnknown from there.Code:Public Function GetIUnknown() As oleexp.IUnknown Dim pISF As IShellFolder Dim ppISF As Long Dim pIUnk As oleexp.IUnknown SHGetDesktopFolder ppISF MoveMemory pISF, ppISF, 4 Set pIUnk = pISF Set GetIUnknown = pIUnk End Function




Reply With Quote