🚀 go-pugleaf

"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());

        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