перебор окон, открытых Опции

[Client]

погуглив, получил такой код

function enumproc(wnd:hwnd; lparam:lparam):BOOL; stdcall;
var
  s,ss:array [1..30] of char;
  s1:string [30];
begin
  GetClassName(wnd,@s,20);
  GetWindowText(wnd,@ss,20);
  form3.Memo1.Lines.Add(ss);
  Result:=true;
end;


procedure TForm3.Button1Click(Sender: TObject);
var
  wnd,wnd1,wnd2:hwnd;
  s: array [1..30] of char;
begin
  Memo1.Clear;
  EnumWindows(@enumproc,0)
end;

Выводит очень большой список, а мне нужно только список тех окон, которые открыты. Мне надо найти окно по части имени, вот и решил перебрать все окна

[volvo]

Можно еще отсечь все дочерние окна, будет еще лучше работать:

if IsWindowVisible(wnd) and (GetWindow(wnd, GW_OWNER) = 0) then