显示并激活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交流群 (群号:54525238)
Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)