列举正在运行的所有应用程序

原创 2004年09月27日 01:45:00

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const SW_SHOW = 5
Public Const SW_RESTORE = 9
Public Const GW_OWNER = 4
Public Const GWL_HWNDPARENT = (-8)
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TOOLWINDOW = &H80
Public Const WS_EX_APPWINDOW = &H40000
Public Const LB_ADDSTRING = &H180
Public Const LB_SETITEMDATA = &H19A
Public Const EWX_FORCE = 4
Public Const EWX_LOGOFF = 0
Public Const EWX_REBOOT = 2
Public Const EWX_SHUTDOWN = 1
Const MAX_PATH& = 260
Private Const SW_HIDE = 0
Private Const WM_CLOSE = &H10
Public HHWnd As Long

Public Function WhichWindowsCallBack(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim lReturn     As Long
    Dim lExStyle    As Long
    Dim bNoOwner    As Boolean
    Dim sWindowText As String

    If hwnd <> Form1.hwnd Then
        If IsWindowVisible(hwnd) Then
            If GetParent(hwnd) = 0 Then
                bNoOwner = (GetWindow(hwnd, GW_OWNER) = 0)
                lExStyle = GetWindowLong(hwnd, GWL_EXSTYLE)

                If (((lExStyle And WS_EX_TOOLWINDOW) = 0) And bNoOwner) Or _
                   ((lExStyle And WS_EX_APPWINDOW) And Not bNoOwner) Then

                    sWindowText = Space$(256)
                    lReturn = GetWindowText(hwnd, sWindowText, Len(sWindowText))
                    If lReturn Then

                        sWindowText = Left$(sWindowText, lReturn)
                        lReturn = SendMessage(lParam, LB_ADDSTRING, 0, ByVal sWindowText)
                        Call SendMessage(lParam, LB_SETITEMDATA, lReturn, ByVal hwnd)
                    End If
                End If
            End If
        End If
    End If
    HHWnd = hwnd
    WhichWindowsCallBack = True
End Function

Public Function fEnumWindows(lst As ListBox) As Long
    With lst
        .Clear
        Call EnumWindows(AddressOf WhichWindowsCallBack, .hwnd)
        fEnumWindows = .ListCount
    End With
End Function
Private Sub Form_Load()
    Call fEnumWindows(List1)
End Sub

使用4G的U盘和UltraISO工具安装Win8系统

一、准备 1. 下载win8系统镜像,可以参考http://diybbs.zol.com.cn/1/34036_1315.html  给的地址,根据自己的需要下载,版本很全而且连安装密钥都给了,我下...
  • mary19880702
  • mary19880702
  • 2013年05月16日 17:00
  • 11509

Linux 列出所有正在运行的进程

ps命令 输入下面的ps命令,显示所有运行中的进程: # ps aux | less 其中, -A:显示所有进程 a:显示终端中包括其它用户的所有进程 x:显示无控制终端的进程 ...
  • mengyafei43
  • mengyafei43
  • 2014年05月22日 17:47
  • 5630

获取安卓后台正在运行的应用程序(不包括当前应用)

/** * 获取正在运行的APP列表-------------放到子线程中执行 */ private List getAppInfos() { List a...
  • ithouse
  • ithouse
  • 2015年07月15日 11:12
  • 2579

PackageManager获得当前手机正在运行的应用程序

前言在网上找到了一张图,对于理解PackageInfo,ApplicationInfo和ActivityInfo有很好的帮助! 示例 /** * 获得手机中正在运行的有访问网络权限的第三方...
  • aiynmimi
  • aiynmimi
  • 2016年09月23日 18:07
  • 747

如何获取正在运行任务的列表

来自:http://wiki.forum.nokia.com/index.php/%E5%A6%82%E4%BD%95%E8%8E%B7%E5%8F%96%E6%AD%A3%E5%9C%A8%E8%B...
  • windcao
  • windcao
  • 2007年09月28日 10:43
  • 1442

Flash Builder 调试器无法连接到正在运行的应用程序

在搞flah Web项目时遇到了如下问题:
  • chjh0540237
  • chjh0540237
  • 2014年07月21日 17:16
  • 3879

C#取得正在运行的程序的数量

[DllImport("user32", SetLastError = true)] public static extern int GetWindowText(IntPtr hWn...
  • abc221414
  • abc221414
  • 2012年02月02日 14:24
  • 694

发一块代码段(删除正在运行的程序文件)

作 者: 老Y时 间: 2007-05-25,16:59链 接: http://bbs.pediy.com/showthread.php?t=45233先声明一下,本文的代码其实也是从别人的工具里A出...
  • iiprogram
  • iiprogram
  • 2008年04月14日 23:26
  • 862

获取任务栏所有正在运行程序

mfc程序添加 CListCtrl名称 m_userlist
  • liaomin416100569
  • liaomin416100569
  • 2014年08月09日 15:44
  • 1409

获取android正在运行的所有app进程

ActivityManager am = (ActivityManager) getSystemService(Context.ACTIVITY_SERVICE); List info...
  • njweiyukun
  • njweiyukun
  • 2016年05月25日 11:41
  • 5088
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:列举正在运行的所有应用程序
举报原因:
原因补充:

(最多只允许输入30个字)