Отримання списку запущених вікон і закриття вибраного вікна зі списку

Опис:

Вставте у форму ось це.
Додай на форму cmdClose – кнопку і lstList – ЛістБокс.
Тепер ти не тільки бачиш усі додатки та їхні вікна але і можеш їх закривати – обережніше – не всі закривають коректно:)

Текст:


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" 
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
Private Declare Function GetWindow Lib "user32" 
    (ByVal hwnd As Long, ByVal wCmd As Long) As Long 
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" 
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" 
    (ByVal hwnd As Long) As Long 
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" 
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
Const GW_HWNDFIRST = 0 
Const GW_HWNDNEXT = 2 
Const WM_CLOSE = &H10 
Const WM_QUIT = &H12 
Dim CurrWnd As String 
Dim ListItem As String 
Dim Length As String 

Sub GetTaskList() 
CurrWnd = GetWindow(Me.hwnd, GW_HWNDFIRST) 
Do While CurrWnd <> 0 
Length = GetWindowTextLength(CurrWnd) 
ListItem = Space(Length + 1) 
Length = GetWindowText(CurrWnd, ListItem, Length + 1) 
If Length <> 0 Then 
lstList.AddItem ListItem 
End If 
CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT) 
DoEvents 
Loop 
End Sub 

Private Sub cmdClose_Click() 
hW = FindWindow(vbNullString, lstList.Text & Chr(0)) 
PostMessage hW, WM_QUIT, 0, 0 
End Sub 

Private Sub Form_Load() 
Left = (Screen.Width - Width) \ 2 
Top = (Screen.Height - Height) \ 2 
GetTaskList 
End Sub 

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*