ok zrobilem tak :
function EnumChildProc(Hw:Hwnd;P:pointer):boolean;stdcall;
var
winname,cname:array[0..144]of char;
itm: TListItem;
begin
result:=true;
getwindowtext(hw,winname,144);
getclassname(hw,cname,144);
itm := Form1.ListWin.Items.Add;
itm.Caption :=('POTOMEK: TEXT:'+strpas(winname)+' KLASA: '+strpas(cname));
end;
function EnumWindowProc(Hw:HWnd;P:pointer):boolean;stdcall;
var
Title,winname,cname:array[0..144]of char;
itm: TListItem;
begin
itm := Form1.ListWin.Items.Add;
result:=true;
getwindowtext(hw,winname,144);
getclassname(hw,cname,144);
if StrPas(cname)='IEFrame' then
if IsWindowVisible(Hw) and (title'') then
itm.Caption := ('OKNO: TEXT:'+strpas(winname)+' KLASA: '+strpas(cname))
else sleep(1);
end;
Ale jest inny problem =P
Mianowicie teraz pokazuja sie "puste miejsca" oraz IEFrame jak zrobic aby nie bylo tych pustych miejsc =P
probowalem dac:
else sleep(1);
Ale niestety nie dziala =P
Moze wy macie jakis pomysl?