По каждому процессу получаем "Заголовок окна" а там уж сами решайте - подходит или не подходит.

Всем участникам благодарен за внимание к моему вопросу и оживленную дискуссию.
Надеюсь на дальнейшее плодотворное сотрудничество.

' окно процесса

  Set WshShell = WScript.CreateObject("WScript.Shell")

  if Instr(1, WScript.FullName, "WScript.exe", 1) > 0 Then
     WshShell.Run "CScript """ & WScript.ScriptFullName & """", 0
     Set WshShell = Nothing
     WScript.Quit 1
  End if

  strComputer = "."

  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" _ 
      & strComputer & "\root\cimv2") 

  Set colProcess = objWMIService.ExecQuery _
      ("Select * from Win32_Process")

  Set Stream   = CreateObject("ADODB.Stream")

  For Each objProcess in colProcess
      Set WshExec = WshShell.Exec("cmd")
      With WshExec.StdIn
           .WriteLine "tasklist /FI ""IMAGENAME eq " + objProcess.Name + """ /V /FO ""LIST"""
           .WriteLine "exit"
      End With
      ss = WshExec.StdOut.ReadAll
      ss = StrConv(ss, "Windows-1251", "cp866")
      MsgBox ss
      Set WshExec = Nothing
  Next

  Set Stream   = Nothing
  Set WshShell = Nothing

  WScript.Quit 0


' конвертация из DOS в WINDOWS
Function StrConv(Text, SourceCharset, DestCharset)
    Stream.Type = 2
    Stream.Mode = 3
    Stream.Open
    Stream.Charset = SourceCharset
    Stream.WriteText Text
    Stream.Position = 0
    Stream.Charset = DestCharset
    StrConv = Stream.ReadText
    Stream.Close
End Function

ну положим даже и кнопки на формах и прочие лейблы это тоже окна

Угу.

Что мы видим в System Tray — совсем не те окна.

Угу. Либо вовсе отсутствуют.

Я так понимаю: надо найти соответствие между стилями окон и перечнем окон в Диспетчере задач. Хотя можно поступить и иначе: найти блуждающие по Сети исходные коды одной из версий Windows 2000 .

...

Slav пишет:

Иконка такое же окно.

Нет.

Slav пишет:

Есть программы, для которых она даже является parent.

Которых?

alexii,

предлагаю Вам запустить команду из поста #10 коллеги smaharbA и убедиться в этом самому.

Я пользуюсь русским драйвером Punto Switcher.
Висит иконкой в трее и замечательно делает свое дело.
Вот строка из списка видимых окон на моем компе:

"punto.exe","8508","Console","0","4 656 КБ","Работает","МойДомен\яПользователь","0:00:00","Punto Switcher Main Window"

В принципе можем продолжить эту тему.
Но я бы попросил у Вас о другом.
К сожалению, PowerShell я не знаю совсем.
Чтобы не открывать кросс-тему в другом разделе не могли бы Вы здесь разместить скрипт на PowerShell по моему вопросу:
в цикле (например, с периодом 3 секунды) анализировать все видимые окна на предмет их названий.

Спасибо.

Не совсем так: видимые окна верхнего уровня.

Нет.

Которых?

Коллега, надеюсь, Вы понимаете, что перед тем, как добавлять процесс в список, нужно ещё проверять, является ли его основное окно видимым или скрытым?

P.S. Иконка — не окно. Иконки в System Tray не имеют никакого отношения к окнам.

alexii,

1) Не понял термина "основное окно". У стандартного windows-приложения есть parent-окно и, возможно, chield-окна. Parent-окно совсем не обязательно может быть видимым - программа может работать как некий монитор и при необходимости генерировать chield-окна (сообщения, диалоги и т.д.)
В списке Диспетчера видны как раз не "основные окна" - а видимые.
Которые могут быть и parent и chield.

2) Иконка такое же окно. Есть программы, для которых она даже является parent.

...Ваша программа почему-то показал два Диспетчера (курсивом). Он же сам показал только три (выделено жирным) - так оно и есть, хотя сам Диспетчер должен был бы отображаться в собственном окне.

Rumata,

посмотрел внимательно - согласен, с Диспетчером какие-то непонятки.
Но это - скажем так - проблемы второстепенные, можно самому обработать.

Проблемы первостепенные этого подхода - исключительно на мой взгляд - следующие:
1) Нужен Word
2) Нет реакции на событие.
Ну и для полной гармонии - хотелось бы узнать для окна его процесс.
Но в рамках объекта Task это невозможно.

1) Да, я могу получить MainWindowTitle процесса. Но ведь у каждого процесса в Windows есть главное окно - даже если его никто никогда не видел. Т.е. на каждый процесс мне по любому что-то вернется - но это не будет "список из первой вкладки ДиспетчераЗадач - Приложения (в английском варианте Applications)." А мне нужен именно он.

Коллега, надеюсь, Вы понимаете, что перед тем, как добавлять процесс в список, нужно ещё проверять, является ли его основное окно видимым или скрытым?

P.S. Иконка — не окно. Иконки в System Tray не имеют никакого отношения к окнам.

( tasklist /fi "Пользователь eq %username%" /fo csv /nh /v 2> nul || tasklist /fi "username eq %username%" /fo csv /nh /v ) | find /v "Н/Д"

smaharbA,

спасибо - лаконично и... почти то, что надо.

К сожалению, в список попадают так же те программы, которые в трее внизу справа.
Логично - главное окно-иконка видна.
Но мне как раз этого не нужно.

Word.Application

Визуально сравнил списки приложений: один, полученный с помощью кода из первого сообщения и второй - с помощью Диспетчера Задач. Они различаются.

Ваша программа почему-то показал два Диспетчера (курсивом). Он же сам показал только три (выделено жирным) - так оно и есть, хотя сам Диспетчер должен был бы отображаться в собственном окне.

Slav, в таком разе пользуйте PowerShell. Там у класса System.Diagnostics.Process непосредственно есть свойство Process.MainWindowTitle.

alexii,

видимо все-таки придется осваивать PowerShell - правда придется переехать в другой раздел форума.

Посмотрел Вашу ссылку. Не совсем то, что мне нужно. Или я плохо смотрел?

1) Да, я могу получить MainWindowTitle процесса. Но ведь у каждого процесса в Windows есть главное окно - даже если его никто никогда не видел. Т.е. на каждый процесс мне по любому что-то вернется - но это не будет "список из первой вкладки ДиспетчераЗадач - Приложения (в английском варианте Applications)." А мне нужен именно он.
Если Вы посмотрите мой пример из первого поста, то там эта задача решается использованием Task.Visible - ничего похожего в System.Diagnostics.Process я не нашел.

2) Ну очень хочется узнавать о появлении нового приложения (фактически - нового видимого окна) по событию. Не хочу в цикле опрашивать каждую секунду, две, три... список процессов, узнавать у каждого его окно а потом гадать - оно видимое или нет.

Пока приспособил для своей задачи tasklist - чуть позже выложу отлаженый скрипт.

Да, пожалуй, уточню задачу - может вариантов станет больше.
Есть процесс с известным мне именем - именно процесс. В зависимости от ситуации этот процесс создает видимые окна, которые - естесственно - появляются в списке приложений. Именно приложений. Мне необходимо узнать о появлении очередного окна и получить его название - в этом названии нужная мне информация.
Если интересно - это задача из телефонии. Софтфон висит как процесс, когда поступает звонок создается видимое окно, в названии окна - абонент и его номер.

я считаю, что у любой задачи есть множество решений.

Slav, в таком разе пользуйте PowerShell. Там у класса System.Diagnostics.Process непосредственно есть свойство Process.MainWindowTitle.