🚀 go-pugleaf

Sorry for repeating my message please discard my first one...thanks..

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;
var
txtLength : 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;
var
ie,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);
begin
showmessage(GetURL);
end;


the C++ Code..


void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ShowMessage(GetURL());
}
//--------------------------------------------------------------------------
-
AnsiString __fastcall TForm1::GetText(HWND WindowHandle)
{
   int txtLength;

   txtLength = SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0)+1;

   ShowMessage(txtLength);
   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);
}
//--------------------------------------------------------------------------
-