如何获取Windows应用程序列表

oxware

墨衍会员 · AI 创作全网分发码龄24年

关注

转载最新推荐文章于 2024-11-08 10:54:56 发布 2.8k 阅读 AI 写同款· GEO 优化 ›

Python获取Windows已安装的所有应用程序列表本文介绍了使用Python通过Windows注册表获取已安装软件列表的方法。相比WMI方式，注册表查询更全面、性能更高且无需管理员权限。阅读详情

来自：唐细刚的专栏

http://blog.csdn.net/tanaya/archive/2004/08/11/71041.aspx

Windows任务管理器的应用程序栏包含任务窗口的列表。要获取此列表，窗口必须满足以下几个条件：

(1) 必须可见
(2) 包含一个标题
(3) 不能被其他窗口包含

下面我给出源程序和调用示例：

VC++源代码(使用VC6)：

//获取任务列表且添加到列表框中．
BOOL GetAppList(CListBox &LstBox)
{
CString strCaption;
LstBox.ResetContent();
ASSERT_VALID(AfxGetMainWnd());
CWnd *pWnd=AfxGetMainWnd()->GetWindow(GW_HWNDFIRST);
if(pWnd==NULL) return FALSE;
while(pWnd)
{
   if(pWnd->IsWindowVisible() && pWnd->GetWindowTextLength() && !pWnd->GetOwner())
     {
       pWnd->GetWindowText(strCaption);
       LstBox.AddString(strCaption);
     }
   pWnd=pWnd->GetWindow(GW_HWNDNEXT);
}
return TRUE;
}

//调用示例：
void CGetAppListDlg::OnGetAppList()
{
GetAppList(m_ListBox1);
}

VB源代码(使用VB6，具体调用很简单，我就不写了)

Option Explicit
Private Declare Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Const GW_OWNER = 4
Private Const GWL_EXSTYLE = (-20)

Private Const WS_EX_TOOLWINDOW = &H80
Private Const WS_EX_APPWINDOW = &H40000

//判断窗口是否为任务应用函数，参数为窗口句柄
Public Function IsTaskbarApp(ByVal hwnd As Long) As Boolean
Dim ExtendStyle As Long
Dim hParent As Long
Dim BoolIsTaskBarApp As Boolean
ExtendStyle = GetWindowLongPtr(hwnd, GWL_EXSTYLE)
hParent = GetParent(hwnd)
BoolIsTaskBarApp = CBool((IsWindowVisible(hwnd) <> 0) And _
(GetWindow(hwnd, GW_OWNER) = 0) And _
(hParent = 0 Or hParent = GetDesktopWindow()))
If (ExtendStyle And WS_EX_TOOLWINDOW) Then BoolIsTaskBarApp = False
If (ExtendStyle And WS_EX_APPWINDOW) Then BoolIsTaskBarApp = True
IsTaskbarApp = BoolIsTaskBarApp
End Function

*-------------------------------------------*
*     转载请注明出处
*     作者：唐细刚
*     邮箱：tanaya@163.com
*-------------------------------------------*