Загрузка без картинок в CppWebBroser... как?

TCustomDownLoad::TCustomDownLoad(TCppWebBrowser* WebBrowser)
        : FWebBrowser(WebBrowser), FRefCount(1)
{
    ...
    FDownloadOptionValue = (DLCTL_DLIMAGES | DLCTL_VIDEOS | DLCTL_BGSOUNDS);
    FDownloadControlOptions << dcoImages << dcoVideos << dcoBgsounds;

    if( (FWebBrowser) && ((Shdocvw_tlb::IWebBrowser2*)FWebBrowser->ControlInterface) )
    {
        IOleObject *pObj = NULL;

        if(SUCCEEDED(FWebBrowser->ControlInterface->QueryInterface(IID_IOleObject, (void **) &pObj)) )
        {
            pObj->SetClientSite(this);
            pObj->Release();
        }
    }
    ...
}

class WebFilter : IOleClientSite, IDispatch
{
ULONG m_RefCount;

public:

WebFilter();

STDMETHODIMP QueryInterface(REFIID iid, void ** ppvObject);
STDMETHODIMP_(ULONG)AddRef();
STDMETHODIMP_(ULONG)Release();

STDMETHODIMP SaveObject();
STDMETHODIMP GetMoniker(DWORD dwAssign, DWORD dwWhichMoniker, IMoniker ** ppmk);
STDMETHODIMP GetContainer(LPOLECONTAINER FAR* ppContainer);
STDMETHODIMP ShowObject();
STDMETHODIMP OnShowWindow(BOOL fShow);
STDMETHODIMP RequestNewObjectLayout();


STDMETHODIMP GetTypeInfoCount(unsigned int FAR*  pctinfo);
STDMETHODIMP GetTypeInfo(unsigned int iTInfo, LCID lcid, ITypeInfo FAR* FAR* ppTInfo);
STDMETHODIMP GetIDsOfNames(REFIID  riid, OLECHAR FAR* FAR*  rgszNames, unsigned int  cNames, LCID   lcid, DISPID FAR*  rgDispId);


STDMETHODIMP Invoke(DISPID dispIdMember,
                  REFIID riid,
                  LCID lcid,
                  WORD wFlags,
                  DISPPARAMS* pDispParams,
                  VARIANT* pVarResult,
                  EXCEPINFO * pExcepInfo,
                  UINT * puArgErr);

};

WebFilter::WebFilter()
{
 m_RefCount = 0;
}

STDMETHODIMP WebFilter::QueryInterface(REFIID iid, void ** ppvObject)
{
 if(iid == IID_IUnknown)
 {
        *ppvObject = reinterpret_cast<IUnknown*>(this);
 }
 else if(iid == IID_IOleClientSite)
 {
        *ppvObject = (IOleClientSite*)this;
 }
 else if(iid == IID_IDispatch)
 {
        *ppvObject = (IDispatch*)this;
 }

 if(*ppvObject)
 {
        ((IUnknown*)*ppvObject)->AddRef();
 }

 return S_OK;
}

STDMETHODIMP_(ULONG)WebFilter::AddRef()
{
 return ++m_RefCount;
}

STDMETHODIMP_(ULONG)WebFilter::Release()
{
 if(--m_RefCount == 0)
 {
  delete this;
  return 0;
 }

 return m_RefCount;
}


STDMETHODIMP WebFilter::SaveObject()
{
        return S_OK;
}

STDMETHODIMP WebFilter::GetMoniker(DWORD dwAssign, DWORD dwWhichMoniker, IMoniker ** ppmk)
{
        return E_NOTIMPL;
}

STDMETHODIMP WebFilter::GetContainer(LPOLECONTAINER FAR* ppContainer)
{
        if (ppContainer == NULL)
            return E_INVALIDARG;
        HRESULT hr = QueryInterface(
            IID_IOleContainer, (void**)(ppContainer));
        if(SUCCEEDED(hr))
                return hr;
        else
                return E_INVALIDARG;
}

STDMETHODIMP WebFilter::ShowObject()
{
        return E_NOTIMPL;
}

STDMETHODIMP WebFilter::OnShowWindow(BOOL fShow)
{
        return S_OK;
}

STDMETHODIMP WebFilter::RequestNewObjectLayout()
{
        return E_NOTIMPL;
}

STDMETHODIMP WebFilter::Invoke(DISPID dispIdMember,
                  REFIID riid,
                  LCID lcid,
                  WORD wFlags,
                  DISPPARAMS* pDispParams,
                  VARIANT* pVarResult,
                  EXCEPINFO * pExcepInfo,
                  UINT * puArgErr)
{
        switch (dispIdMember)
        {
                case DISPID_AMBIENT_DLCONTROL:
                        pVarResult->vt = VT_I4;
                        pVarResult->lVal = DLCTL_DLIMAGES | DLCTL_VIDEOS | DLCTL_NO_SCRIPTS;
                break;
        }

        return S_OK;
}

STDMETHODIMP WebFilter::GetTypeInfoCount(unsigned int FAR*  pctinfo)
{
 return E_NOTIMPL;
}

STDMETHODIMP WebFilter::GetTypeInfo(unsigned int iTInfo, LCID lcid, ITypeInfo FAR* FAR* ppTInfo)
{
 return E_NOTIMPL;
}

STDMETHODIMP WebFilter::GetIDsOfNames(REFIID  riid, OLECHAR FAR* FAR*  rgszNames, unsigned int  cNames, LCID   lcid, DISPID FAR*  rgDispId)
{
 return E_NOTIMPL;
}

WebFilter *wf = new WebFilter();
        IOleObject *pObj = NULL;


        if(SUCCEEDED(web->ControlInterface->QueryInterface(IID_IOleObject, (void **) &pObj)) )
        {
            pObj->SetClientSite((IOleClientSite*)wf);
            pObj->Release();
        }