EnumerateWindows problem

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

pozdrav!naleteo sam na jedan clanak na [Link mogu videti samo ulogovani korisnici] o tome kako dobiti text iz ie edit polja za adrese..i naravno hteo sam da ga pokrenem medjutim stalno mi javlja gresku 'Variable required',pa ako bi neko mogao da mi kaze u cemu je stvar..

...
function GetUrlFromIE (Handle: THandle; List: TStringList): boolean; stdcall; ... procedure TForm1.btnRefreshClick(Sender: TObject); begin  lbIEURL.Clear;  EnumWindows(@GetUrlFromIE, LParam(lbIEURL.Items)); <---GRESKA end; function GetUrlFromIE (Handle: THandle; List: TStringList):  boolean; stdcall; var   hWndIE, hWndIEChild : HWND;   Buffer : array[0..255] of Char; begin   //get the window caption   SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));   //look for the Internet Explorer window with "Buffer" caption   hWndIE := FindWindow('IEFrame', Buffer);   if hWndIE > 0 then   begin     //try to get a handle to IE's toolbar container     hWndIEChild := FindWindowEx(hWndIE, 0, 'WorkerW', nil);     if hWndIEChild > 0 then     begin       //get a handle to address bar       hWndIEChild := FindWindowEx(hWndIEChild, 0, 'ReBarWindow32', nil);       if hWndIEChild > 0 then       begin         //finally, locate combo box and add its text to the list         hWndIEChild := FindWindowEx(hWndIEChild, 0, 'ComboBoxEx32', nil);         if hWndIEChild > 0 then         begin           SendMessage(hWndIEChild, WM_GETTEXT, 255, integer(@Buffer));           //List.AddObject(Buffer,TObject(hWndIE));           List.Add(Buffer)         end;       end;     end;   end;   //continue enumeration   Result :=True; end; (*GetUrlFromIE*)