EnumerateWindows problem

EnumerateWindows problem

offline
  • zlivuk 
  • Novi MyCity građanin
  • Pridružio: 07 Avg 2010
  • Poruke: 7

pozdrav!naleteo sam na jedan clanak na delphi.about.com/od/windowsshellapi/l/aa060303b.htm 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*)



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Ko je trenutno na forumu
 

Ukupno su 476 korisnika na forumu :: 26 registrovanih, 6 sakrivenih i 444 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., amaterSRB, Apok, BSD, celeron, cikadeda, dane007, darios, darkstar101, Djokkinen, havoc995, Insan, Joja2, kunktator, LUDI, m0nstrum_, Maschinekalibar, Nebo_M, pein, potez xxv, Recce, saputnik plavetnila, shone34, VP3987, wizzardone, wolf431