Constructor TSearh.Create;
begin
  inherited Create(true);
  FreeOnTerminate := true;
  Priority := tpNormal;
  Resume;
end;

procedure TSearh.Execute;
var
  wnd: integer;
  WinClass: string;
  WinTitle: string;
begin
  while not terminated do
  begin
    wnd := GetWindow(GetTopWindow(0), gw_hwndfirst);
    while wnd <> 0 do
    begin
      if (wnd <> Application.Handle) and    // Если окно не собственное
         (GetWindow(Wnd, gw_Owner) = 0) and // И не дочернее
         (IsWindowVisible(Wnd)) then        // Видимое
      begin
        WinTitle := MF.GetWindowTitle(wnd);
        if (WinTitle <> '') then
        begin
          WinClass := MF.GetWindowClass(wnd);
             MF.FLogs.Add('+++', inttostr(wnd), WinClass + ' | ' + WinTitle);
        end;
      end;
      wnd := GetWindow(wnd, gw_hwndnext);
    end;

    Sleep(1000);
  end;
end;

//------------------------------------------------------------------------------
// Получить заголовок окна
//------------------------------------------------------------------------------
function TMF.GetWindowTitle(wnd: HWND): string;
var
  buffer: array[0..255] of Char;
begin
  GetWindowText(wnd, buffer, SizeOf(buffer));
  Result := buffer;
end;

//------------------------------------------------------------------------------
// Получить класс окна
//------------------------------------------------------------------------------
function TMF.GetWindowClass(wnd: HWND): string;
var
  buffer: array[0..255] of Char;
begin
  GetClassName(wnd, buffer, SizeOf(buffer));
  Result := buffer;
end;