🚀 go-pugleaf

Hi remy..

thank you so much for your reply....I think I didn't understand you
well...when you said I must tell GetURL function which window it must look
to each time...if this is what you meant then I believe there is
misunderstanding...when I tried to use EnumWindows function... I was looking
for API function that I can use to search for all active IE open windows and
with the GetURL code...my program will automatically add to my listbox all
the URLs in ALL active IE opened windows...NOT a specific one....

Anyway I copied your code as is and I tried to run it by calling and
unfortunately it didn't retrieve any URL's from the active IE opened
windows...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    GetWindowsInfo();
}
//--------------------------------------------------------------------------
-


instead to make it work I've to make

void __fastcall TForm1::Button1Click(TObject *Sender)
{

    HWND ie;
    ie=FindWindow("IEFrame",NULL);
   GetURL(ie);
}
//--------------------------------------------------------------------------
-

and that is NOT what I was looking for from EnumWindows Function

Once again thank you so much for your patience and support

Regards



"Remy Lebeau (TeamB)" <gambit47@yahoo.com> wrote in message
news:3f26d436$1@newsgroups.borland.com...
>
> "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
>
>