注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

VB取得所有进程  

2007-07-05 09:37:00|  分类: VB和VBA知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
VB取得所有进程


Option Explicit

Private Declare Function GetDesktopWindow()Function GetDesktopWindow

Lib "user32" () As Long

Private Declare Function GetWindow()Function GetWindow Lib "user32"

(ByVal hwnd As Long, ByVal wCmd As
 Long) As Long

Private Declare Function GetWindowText()Function GetWindowText Lib

"user32" Alias "GetWindowTextA" (ByVal hwnd
 As Long, _
    ByVal lpString As String, ByVal cch As Long) As Long
    
Private Declare Function SetWindowPos()Function SetWindowPos Lib

"user32" (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long,

ByVal cx As Long, _
    ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const HWND_TOPMOST = -1
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2

Private Sub Form_Load()Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
  SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or

SWP_NOSIZE
  Dim lngDeskTopHandle As Long
  Dim lngHand As Long
  Dim strName As String * 255
  Dim lngWindowCount As Long
  lngDeskTopHandle = GetDesktopWindow()
  lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)
  lngWindowCount = 1
  Do While lngHand <> 0
     GetWindowText lngHand, strName, Len(strName)
     lngHand = GetWindow(lngHand, GW_HWNDNEXT)
     If Left$(strName, 1) <> vbNullChar Then
        Me.list1.AddItem Left$(strName, InStr(1, strName, vbNullChar))
        lngWindowCount = lngWindowCount + 1
     End If
  Loop
  Label1.Caption = "程序列表中共有:" & lngWindowCount & "个运行程序 "
End Sub

Private Sub Command1_Click()Sub Command1_Click()
  End
End Sub
 
  评论这张
 
阅读(867)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017