Список активных приложений

[xenomorph]

Процессы я уже видел .

Есть у кого линк на сорс аналога Ктрл+Альт+Дел в вин 98 и 2к?
(активных задачь)
--
Заранее огромное спасибо!

[A.A.Z.]

Ну народ! Ну ведь поиск-то на англ. яз. работает, да и API-Guide рулит!

Добавь ListBox на форму и вставь это:

Код: Выделить всё

Private Sub Form_Load()
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub

А это - в модуль:

Код: Выделить всё

Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String, Ret As Long
Ret = GetWindowTextLength(hwnd)
sSave = Space(Ret)
GetWindowText hwnd, sSave, Ret + 1
If sSave <> "" Then Form1.List1.AddItem sSave
EnumWindowsProc = True
End Function

[xenomorph]

Ну я вообще-то простых вопросов стараюсь не задавать .

Вопрос немного другой - Таск Мэнэджер работает тоже по такому принципу? - отлов окон ???

Шото грызут меня смутные сомненья что нет ...
--
И второй вопросик - как ТМ определят какое приложение
"выполняеться" а какое "висит"?

з.ы. иногда проще спросить умного человека ...

[tyomitch]

И второй вопросик - как ТМ определят какое приложение
"выполняеться" а какое "висит"?

Афаик им шлётся WM_NULL с таймаутом 20 секунд. Если его не обработали, значит висим.

А ещё, есть функция IsHungAppWindow ( http://msdn.microsoft.com/library/en-us ... Window.asp )

[xenomorph]

Спасибо! _Дельно_!

[alibek]

Кстати, в NT используется не нумератор окон. Название API-шки не скажу, т.к. замучал жестокий склероз, что-то типа Query-чего-то-там.

[xenomorph]

Как тока так сразу! Заранее спасибо!