🚀 go-pugleaf

"Martin C" <martinc@aol.com> wrote in message
news:402c41a3@newsgroups.borland.com...

> As far as I understand the white list should allow popup windows
> from certain sites the user select, so in other words if I selected
> www.popuptest.com as one of the sites in my white list then any
> popup window that will come from this site should be allowed,
> and that is why I though of getting the URL of the source ie
> window that generated the popup windows....please correct me
> if I am saying anything wrong.

That is not what you were suggesting earlier.  You made it sound like you
wanted to allow/prevent popups based on the URL that the popup itself is
trying to go to, not the URL of the page that is displaying the popup.

If you want to prevent the popup based on the URL that the popup is trying
to display, I just came up with the following piece of code that actually
closes the popup window itself:

    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