🚀 go-pugleaf

Thanks remy, the code just works great...and I will check the link you
provided me as well.

Now this code retrieves the typed URL of the active IE window, and I am
trying to get the URL's of all opened IE windows then add them to a listbox
on my form...so I found EnumWindows function and I tried to use it with the
code you translated although I can't make it work and all I get in result is
the active window url being typed in my list box for like 50 times and I
test while having 3 IE windows only

thank your for your patience and support

the code for EnumWindows

BOOL CALLBACK MyWindowsProc( HWND hwnd, LPARAM lParam )
{
   Form1->GetURL();

   BOOL ret = TRUE;
   return ret;
}
//--------------------------------------------------------------------------
-
void __fastcall TForm1::GetWindowsInfo()
{

   if (!EnumWindows((WNDENUMPROC)MyWindowsProc, (LPARAM)UrlListBox->Items))
//I am adding the retrieved url's in a list box
   {       ShowMessage("Error occured while EnumWindows");
   }
}
//--------------------------------------------------------------------------
-

and I added the following line to the code below...

"Remy Lebeau (TeamB)" <gambit47@yahoo.com> wrote in message
news:3f26be21@newsgroups.borland.com...
>
> "micheal davis" <micheal_davis@hotmail.com> wrote in message
> news:3f268dd9@newsgroups.borland.com...
>
> > I enclosed the Pascal code and the C++ code after I trying to
translate...
>
>     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());
>

UrlListBox->Items->Add(buffer);

>         return buffer;
>     }
>
>     AnsiString __fastcall GetURL()
>     {
>         HWND ie, worker, toolbar, comboboxex, combo, edit;
>
>         ie = ::FindWindow("IEFrame", NULL);
>         worker = ::FindWindowEx(ie, 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);
>     }
>
>     void __fastcall TForm1::Button1Click(TObject *Sender)
>     {
>         ShowMessage(GetURL());
>     }
>
> BTW, there is a much easier way to obtain the current URL from IE.  Use
DDE
> instead, for example:
>
>
http://groups.google.com/groups?q=borland+remy+internet+explorer+dde&hl=en&l
> r=&ie=UTF-8&oe=UTF-8&selm=3e1e2b12%241%40newsgroups.borland.com&rnum=1
>
>
> Gambit
>
>