調出Activex控制項屬性頁面

BOOL ViewControl_PropertyPage(HWND hParent, CWnd *pCtrl)<br />{<br /> LCID m_lcid=GetUserDefaultLCID(); //User locale<br /> IDispatch *m_pIDispatch = (IDispatch *)pCtrl->GetControlUnknown(); //Object in use<br /> ISpecifyPropertyPages *pISPP;<br /> CAUUID caGUID;<br /> HRESULT hr;</p><p> if (FAILED(m_pIDispatch->QueryInterface(IID_ISpecifyPropertyPages, (void **)&pISPP)))<br /> {<br /> TRACE(TEXT("Object has no property pages"));<br /> return 0;<br /> }</p><p> hr=pISPP->GetPages(&caGUID);<br /> pISPP->Release();</p><p> if (FAILED(hr))<br /> {<br /> TRACE(TEXT("Failed to retrieve property page GUIDs"));<br /> return 0;<br /> }</p><p> hr=OleCreatePropertyFrame(hParent, 10, 10, 0, 1, (IUnknown **)&m_pIDispatch, caGUID.cElems, caGUID.pElems, m_lcid, 0L, NULL);</p><p> if (FAILED(hr))<br /> {<br /> TRACE(TEXT("OleCreatePropertyFrame failed"));<br /> return 0;<br /> }</p><p> //Free the GUIDs<br /> CoTaskMemFree((void *)caGUID.pElems);</p><p> return 1;</p><p>}