🚀 go-pugleaf

"micheal davis" <micheal_davis@hotmail.com> wrote in message
news:3f26c2cc@newsgroups.borland.com...

> BOOL CALLBACK MyWindowsProc( HWND hwnd, LPARAM lParam )
> {
>    Form1->GetURL();
>
>    BOOL ret = TRUE;
>    return ret;
> }

Even though you are enumerating windows, you are still only looking at the
active IE window when retreiving the actual URL.  That is why you are seeing
the same URL repeated over and over.  You need to tell GetURL() which actual
window to look at each time.

Try this instead:

    AnsiString __fastcall GetText(HWND WindowHandle)
    {
        int txtLength;
        AnsiString buffer;

        txtLength = ::SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0) + 1;
        buffer.SetLength(txtLength);
        ::SendMessage(WindowHandle, WM_GETTEXT, txtLength,
(LPARAM)buffer.c_str());

        return buffer;
    }

    AnsiString __fastcall GetURL(HWND IEWindowHandle)
    {
        HWND worker, toolbar, comboboxex, combo, edit;

        worker = ::FindWindowEx(IEWindowHandle, 0, "WorkerA", NULL);
        toolbar = ::FindWindowEx(worker, 0, "ReBarWindow32", NULL);
        comboboxex = ::FindWindowEx(toolbar, 0, "ComboBoxEx32", NULL);
        combo = ::FindWindowEx(comboboxex, 0, "ComboBox", NULL);
        edit = ::FindWindowEx(combo, 0, "Edit", NULL);

        return GetText(edit);
    }

    BOOL CALLBACK MyWindowsProc( HWND hwnd, LPARAM lParam )
    {
        char buffer[12] = {0};
        ::GetClassName(hwnd, buffer, 12);
        if( StrComp(buffer, "IEFrame") == 0 )
            ((TListBox*)lParam)->Items->Add(GetURL(hwnd));
        return TRUE;
    }

    void __fastcall TForm1::GetWindowsInfo()
    {
        UrlListBox->Items->Clear();
        if( !EnumWindows((WNDENUMPROC)MyWindowsProc,
(LPARAM)UrlListBox->Items) )
            ShowMessage("Error occured while EnumWindows");
    }


Gambit