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 566 korisnika na forumu :: 38 registrovanih, 3 sakrivenih i 525 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Bane san, BlackPhantom, BSD, cavatina, celik, Cobi026, Cufo, Cvijo_ue, cvrle312, danilopu2, darkangel, Dicus, doom83, Dorcolac, dulentse, indja, ivance95, Kos93, Kubovac, KUZMAR, Marko Marković2, MB120mm, Mercury2, Mihajlo2, nradukic, operniki, pein, Perko91, Rakenica, rodoljub, rovac, royst33, Shomy2, skvara, Snorks, stug, vespa nikola, Wisdomseeker