🚀 go-pugleaf

Hi all,

I've got this Pascal code that enable grabbing URL from any IE window, but
it seems not to work after I tried to translate it, so can some one help me
PLEASE translate this code.

I enclosed the Pascal code and the C++ code after I trying to translate...

The Pascal Code:

Function GetText(WindowHandle: hwnd):string;vartxtLength : integer;buffer:
string;begin TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1; setlength (buffer, txtlength); sendmessage
(WindowHandle,wm_gettext, txtlength, longint(@buffer[1])); result :=
buffer;end; function
GetURL:string;varie,toolbar,combo,comboboxex,edit,worker,toolbarwindow:hwnd;
begin  ie := FindWindow(pchar('IEFrame'),nil);  worker :=
FindWindowEx(ie,0,'WorkerA',nil);  toolbar :=
FindWindowEx(worker,0,'rebarwindow32',nil);  comboboxex :=
FindWindowEx(toolbar, 0, 'comboboxex32', nil);  combo :=
FindWindowEx(comboboxex,0,'ComboBox',nil);  edit :=
FindWindowEx(combo,0,'Edit',nil);  toolbarwindow := FindWindowEx(comboboxex,
0, 'toolbarwindow32', nil);  result :=
GetText(edit);{-------------------------------------------------------}
procedure TForm1.Button1Click(Sender:
TObject);beginshowmessage(GetURL);end;My C++ Codevoid __fastcall
TForm1::Button1Click(TObject *Sender){
ShowMessage(GetURL());}//---------------------------------------------------
------------------------AnsiString __fastcall TForm1::GetText(HWND
WindowHandle){   int txtLength;      txtLength = SendMessage(WindowHandle,
WM_GETTEXTLENGTH, 0, 0)+1;   char *buffer = new char[txtLength];
SendMessage(WindowHandle, WM_GETTEXT, (WPARAM)txtLength, (LPARAM)buffer);
return
buffer;}//------------------------------------------------------------------
---------AnsiString __fastcall TForm1::GetURL(){ HWND
ie,toolbar,combo,comboboxex,edit,worker,toolbarwindow; ie =
FindWindow("IEFrame",NULL); worker = FindWindowEx(ie,NULL,"WorkerA",NULL);
toolbar = FindWindowEx(worker,NULL,"rebarwindow32",NULL); comboboxex =
FindWindowEx(toolbar,NULL,"comboboxex32", NULL); combo =
FindWindowEx(comboboxex,NULL,"ComboBox",NULL); edit =
FindWindowEx(combo,NULL,"Edit",NULL); toolbarwindow =
FindWindowEx(comboboxex,NULL,"toolbarwindow32", NULL); return
GetText(edit);}//-----------------------------------------------------------
----------------thanks all for your help...best regards