enumwin.bas

列出Windows程序的进程

Attribute VB_Name = "Module1"
Option Explicit

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

Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim S As String
    
    S = String(80, 0)
    Call GetWindowText(hwnd, S, 80)
    S = Left(S, InStr(S, Chr(0)) - 1)
    
    If Len(S) > 0 Then Form1.List1.AddItem S
    
    EnumWindowsProc = True
End Function