Как достать заголовки всех открытых окон Intenet Explorer?

← →
rambo69 (2002-02-09 16:37) [3]

procedure sbor;
var Wnd : hWnd;
buff: array [0..127] of char;
str:string;
begin
LIST1.CLEAR;
str:="Microsoft Internet Explorer";
Wnd := GetWindow(chatform.Handle, gw_HWndFirst);
while Wnd <> 0 do begin {Не показываем:}
if IsWindowVisible(Wnd) and {-Невидимые окна}
(GetWindow(Wnd, gw_Owner) = 0) and {-Дочернии окна}
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}
then begin
GetWindowText(Wnd, buff, sizeof(buff));
if pos(str,StrPas(buff))>0
then list1.items.add(StrPas(buff));
end;
Wnd := GetWindow(Wnd, gw_hWndNext);
end;
end;

Как достать заголовки всех открытых окон Intenet Explorer? Найти похожие ветки