COM & C++ & MDI

interface ITask : IUnknown {
    HRESULT Run([in]HWND hWndParent,[out]HWND*created_wnd,[out]long*error_code);
 
};

class CMDIMainFrame : public CMDIFrameWndEx {
    DECLARE_DYNAMIC(CMDIMainFrame)
    public:
        CMDIMainFrame(CWnd *pWnd = 0);
        virtual ~CMDIMainFrame();
 
    protected:
        afx_msg void OnFileNew(); // при данном сообщение вызывается com-модуль
 
        DECLARE_MESSAGE_MAP();
 
};
 
IMPLEMENT_DYNAMIC(CMDIMainFrame, CMDIFrameWndEx)
 
BEGIN_MESSAGE_MAP(CMDIMainFrame, CMDIFrameWndEx)
    ON_COMMAND(ID_FILE_NEW, OnFileNew)
END_MESSAGE_MAP()
 
CMDIMainFrame::CMDIMainFrame(CWnd *pWnd) {}
CMDIMainFrame::~CMDIMainFrame() { }
 
void CMDIMainFrame::OnFileNew() {   
    IClassFactory *factory = 0;
    ITask *iTest = 0;
    HWND hWnd = this->GetSafeHwnd(); // главное окно для передачи модулю
 
    HRESULT h = CoGetClassObject(
        CLSID_TaskClass,
        CLSCTX_INPROC_SERVER,
        NULL,
        IID_IClassFactory,
        reinterpret_cast<void **>(&factory));
 
        HWND created_wnd = 0;
        long error_code = 0;        
 
    h = factory->CreateInstance(NULL, IID_ITask, (void **)&iTest);
    h = iTest->Run(hWnd, &created_wnd, &error_code);
 
    iTest->Release();
    factory->Release();
 
}

class CChildWnd : public CMDIChildWnd {
    public:
        CChildWnd(){ };
        ~CChildWnd(){ };
};
 
STDMETHODIMP TaskClass::Run( HWND hWndParent, HWND *create_wnd, long *error_code ) { 
    CMDIFrameWnd *pFrameWnd = (CMDIFrameWnd *)CWnd::FromHandle(hWndParent);
    CChildWnd *pChildWnd = new CChildWnd;
    pChildWnd->Create(NULL, _T("Hello"), WS_CHILD | WS_VISIBLE | WS_OVERLAPPEDWINDOW, 
CFrameWnd::rectDefault, pFrameWnd );
 
        created_wnd = pChildWnd->GetSafeHwnd();
 
    return S_OK; 
}
 
+ фабрика классов, экспортируемые функции и т.д.  - все стандартно.

lResult = pWnd->WindowProc(nMsg, wParam, lParam);