Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

显示并激活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源码网店


常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助