Delphi-Help

procedure TForm1.Button1Click(Sender: TObject);

var

  Wnd: hWnd;

  buff: array [0..127] of Char;

begin

   ListBox1.Clear;

   // Получаем hWnd первого окна

   Wnd := GetWindow( 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 ) );

            ListBox1.Items.Add( StrPas( buff ) );

         end;

      // Ищем следующее окно

      Wnd := GetWindow( Wnd, gw_hWndNext );

   end;

   ListBox1.ItemIndex := 0;

end;