显示并激活Windows已运行的程序
时 间:2008-02-02 18:22:06
作 者:咱家是猫 ID:85 城市:广州
摘 要:在Access窗体中显示Windows已打开的程序名,且激活它.
正 文:
Option Compare Database
Option Explicit
Private Const GW_HWNDFIRST = 0
Private Const GW_OWNER = 4
Private Const GW_HWNDNEXT = 2
Private Const SW_MAXIMIZE = 3
Private Const SW_MINIMIZE = 6
Private Const SW_NORMAL = 1
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 IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Function FensterSuchen(FensterTitel As String, Optional retValue)
Dim hWnd, strTitel As String, Longe As Long, Ret As Long
hWnd = GetActiveWindow()
If hWnd Then
Do While hWnd
strTitel = String$(255, 0)
Longe = Len(strTitel)
Ret = GetWindowText(hWnd, strTitel, Longe)
strTitel = Left$(strTitel, InStr(strTitel, Chr$(0)) - 1)
If IsWindowVisible(hWnd) And GetWindow(hWnd, GW_OWNER) = 0 Then
If strTitel Like FensterTitel Then
If IsMissing(retValue) Then
FensterSuchen = strTitel
Else
FensterSuchen = hWnd
End If
Exit Function
End If
End If
hWnd = GetWindow(hWnd, GW_HWNDNEXT)
Loop
End If
If IsMissing(retValue) Then
FensterSuchen = ""
Else
FensterSuchen = 0
End If
End Function
Function TaskListen()
Dim hWnd, strTitel As String, Ret As Long, Longe As Long
Dim Tmp As String
hWnd = GetActiveWindow()
If hWnd Then
Do While hWnd
strTitel = String$(255, 0)
Longe = Len(strTitel)
Ret = GetWindowText(hWnd, strTitel, Longe)
strTitel = Left$(strTitel, InStr(strTitel, Chr$(0)) - 1)
If Is
Access软件网QQ交流群 (群号:483923997)
Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)