🚀 go-pugleaf

Thank you so much Remy for your reply and the code...

BR


"Remy Lebeau (TeamB)" <gambit47.no.spam@no.spam.yahoo.com> wrote in message
news:402c4b6a$1@newsgroups.borland.com...
>
>
>     case DISPID_BEFORENAVIGATE2:
>     {
>         CComQIPtr<IWebBrowser2, &IID_IWebBrowser2> m_spWebBrowser2Tmp;
>         m_spWebBrowser2Tmp = pDispParams->rgvarg[6].pdispVal;
>
>         WideString wURLToCheck =
> (WideString)TVariant(pDispParams->rgvarg[5].pvarVal);
>         if( wURLToCheck is blocked )
>        {
>             *(pDispParams->rgvarg[0].pboolVal) = VARIANT_TRUE;
>
>             WideString wCurrentURL;
>             m_spWebBrowser2Tmp->get_LocationURL(&wCurrentURL);
>
>             // if there is no current url yet then it must
>             // be a new window so close it as well
>
>             if( wCurrentURL.Length() == 0 )
>             {
>                 // destroy the containing window manually otherwise
>                 // an empty taskbar button may be left behind
>                 long lWindow = NULL;
>                 m_spWebBrowser2Tmp->get_HWND(&lWindow);
>                 if( lWindow != 0 )
>                     DestroyWindow(reinterpret_cast<HWND>(lWindow));
>
>                 // shutdown the browser control
>                 m_spWebBrowser2Tmp->Quit();
>             }
>         }
>
>         break;
>     }
>
>
> Gambit
>
>