Как найти имена всех открытых вкладок браузера opera?

[dolphin705]

Здравствуйте, я пытаюсь найти все открытые вкладки браузера опера, вот они Безымянный.JPG
, но все мои попытки не увенчались успехом, не пойму но почему то эти вкладки вроде бы не дочерние окна самого главного окна оперы

findwindow и findwindowex не сработали, с помощью EnumChildWindows тоже не получилось, может кто имел с этим дело и подскажет?

[Кольша]

procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd: hWnd;
  buff: array [0..127] of Char;
begin
  ListBox1.Clear;
  Wnd := GetWindow(Handle, gw_HWndFirst);
  while Wnd <> 0 do begin {Не показываем:}
    if (Wnd <> Application.Handle) and {Собственное окно}
      IsWindowVisible(Wnd) and  {Невидимые окна}
      (GetWindow(Wnd, gw_Owner) = 0) and  {Дочерние окна}
      (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {Окна без заголовков}
      then begin
      GetWindowText(Wnd, buff, sizeof(buff));
      ListBox1.Items.Add(StrPas(buff));
    end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
 end;
 ListBox1.ItemIndex := 0;
end;

[dolphin705]

Кольша, пробовал подобный код, и этот сейчас протестировал, но он всего лишь находит только верхнюю активную вкладку