CdhtmlDialog哪位高手用过，哪位高手能给个实例

class CXXXDialog : public CDHtmlDialog
{
public:
    // ....
    // 取消左菜单
    STDMETHOD(ShowContextMenu)(DWORD dwID, POINT *ppt, IUnknown *pcmdtReserved, IDispatch *pdispReserved)
    {
        return S_OK;
    }
    // 获取HTML
    HRESULT OnButtonOK(IHTMLElement *pElement) 
    {
        if (m_spHtmlDoc)
        {
            HGLOBAL hMemory;
            hMemory = GlobalAlloc(GMEM_MOVEABLE, 0);
            if (hMemory != NULL)
            {
                CComQIPtr<IPersistStreamInit> spPersistStream = m_spHtmlDoc;
                if (spPersistStream != NULL)
                {
                    CComPtr<IStream> spStream;
                    if (SUCCEEDED(CreateStreamOnHGlobal(hMemory, TRUE, &spStream)))
                    {
                        spPersistStream->Save(spStream, FALSE);

                        LPCTSTR pstr = (LPCTSTR) GlobalLock(hMemory);
                        if (pstr != NULL)
                        {
                             ::MessageBoxA(m_hWnd,pstr,NULL,NULL);
                            GlobalUnlock(hMemory);
                        }
                    }
                }
            }

        }
    
    }

};