Tabs ermitteln und schließen im Firefox, IE & Opera!

[TriphunEM]

Hallo,

ich beschäftige mich mit dem Problem, eine Liste bestimmter Seiten die im IE, Firefox und Opera geöffnet sind, an hand des Fenstertitels zu schließen! Hab versucht erstmal mit FindWindow alle aktiven Fenster zu ermitteln.

Delphi-Quellcode:

// Hier werden erstmal alle gefundenen in eine Listbox aufgelistet!
procedure TForm1.Button1Click(Sender: TObject);
var
  hwnd : THandle;
  p : array[0..256] of Char;
begin
  hwnd := FindWindow(nil, nil);
  while hwnd <> 0 do begin
    hwnd := GetWindow(hwnd, GW_HWNDNEXT);
    GetClassName(hwnd, P, SizeOf(P));
    // Firefox
    if string(P) = 'MozillaUIWindowClass' then begin
      GetWindowText(hwnd, P, 255);
      Listbox1.items.add(P);
    end;
    // IE
    if string(P) = 'IEFrame' then begin
      GetWindowText(hwnd, P, 255);
      Listbox1.items.add(P);
    end;
    // Opera
    if string(P) = 'OpWindow' then begin
      GetWindowText(hwnd, P, 255);
      Listbox1.items.add(P);
    end;
  end;
end;

Hier hab ich das Problem das immer nur der aktive Tab angezeigt wird, und alle die nicht aktiv sind werden nicht angezeigt! Hat jemand eine Ahnung???

Danke!

[TriphunEM]

???