Znacie jakas funkcje/procedure ktora "pokauje" wszystkie uchwyty/tytuly w ListView "okienkek IE" ??
chodzi mi o to aby pokazaly sie wszystkie tytuly okien/stron programu IE
np:
Windows: www.wp.pl
Windows: www.pocket.com.pl
Windows: CS kill all!
itd...
EnumWindows + F1
Szukaj IEFrame'ów.
znalazlem cos takiego:
function EnumChildProc(Hw:Hwnd;P:pointer):boolean;stdcall;
var
winname,cname:array[0..144]of char;
begin
result:=true;
getwindowtext(hw,winname,144);
getclassname(hw,cname,144);
List.Append('POTOMEK: TEXT:'+strpas(winname)+' KLASA: '+strpas(cname));
end;
function EnumWindowProc(Hw:HWnd;P:Pointer):boolean;stdcall;
var
winname,cname:array[0..144]of char;
begin
result:=true;
getwindowtext(hw,winname,144);
getclassname(hw,cname,144);
List.Append('OKNO: TEXT:'+strpas(winname)+' KLASA: '+strpas(cname));
enumchildwindows(hw,@enumchildproc,0);
end;
Le to pokazuje wszystkie okna =P
A mi chodzi tylko o te IE =P
pEntry:tprocessentry32;
Ta zmienna powinna zawierać nazwę klasy. Porównaj ją z IEFrame.
eee troche nie rozumiem =P
function EnumWindowProc(Hw:HWnd;P:Pointer):boolean;stdcall;
var
winname,cname:array[0..144]of char;
begin
result:=true;
getwindowtext(hw,winname,144);
getclassname(hw,cname,144);
If StrPas(cname)='IEFrame' Then List.Append('OKNO: TEXT:'+strpas(winname)+' KLASA: '+strpas(cname));
end;
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?
A wiec nikt nie wie =[
function EnumWindowProc(Hw:HWnd;P:pointer):boolean;stdcall;
var
Title,winname,cname:array[0..144]of char;
itm: TListItem;
begin
result:=true;
getwindowtext(hw,winname,144);
getclassname(hw,cname,144);
if StrPas(cname)='IEFrame' then
if IsWindowVisible(Hw) and (title'') then begin
itm := Form1.ListWin.Items.Add;
itm.Caption := ('OKNO: TEXT:'+strpas(winname)+' KLASA: '+strpas(cname));
end;
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?</quote>