CComQIPtr< ISpecifyPropertyPages > spSpecify( m_ax.GetControlUnknown() );
if( !spSpecify ) return;

CAUUID pages;
HRESULT hResult = spSpecify->GetPages( &pages );
if( FAILED( hResult ) ) return;

CLSID * pclsidPages = (CLSID*)_alloca( pages.cElems * sizeof( CLSID ) );
for( int i=0; i<(int)pages.cElems; i++ )
pclsidPages[i] = pages.pElems[i];

::CoTaskMemFree( pages.pElems );

IUnknown * pObject = m_ax.GetControlUnknown();

OleCreatePropertyFrame( m_hWnd, 0, 0, L"属性",
1, &pObject,
pages.cElems, pclsidPages,
GetUserDefaultLCID(), 0, NULL );
posted on 2007-11-18 21:24 杨老师的茅屋 阅读(1551)
评论(5) 编辑 收藏