🚀 go-pugleaf

Hi Jeppe,

  Try something like this if you know the class name of theapp you're
looking for.

'************** Code Start ***************
Private Declare Function apiGetWindow Lib "user32" _
    Alias "GetWindow" _
    (ByVal hWnd As Long, _
    ByVal wCmd As Long) _
    As Long

Private Declare Function apiGetWindowThreadProcessId Lib "user32" _
    Alias "GetWindowThreadProcessId" _
    (ByVal hWnd As Long, _
    lpdwProcessID As Long) _
    As Long

Private Declare Function apiGetDesktopWindow Lib "user32" _
    Alias "GetDesktopWindow" () _
    As Long

Private Declare Function apiGetClassName Lib "user32" _
    Alias "GetClassNameA" _
    (ByVal hWnd As Long, _
    ByVal lpClassname As String, _
    ByVal nMaxCount As Long) _
    As Long

Private Declare Function apiGetWindowLong Lib "user32" _
  Alias "GetWindowLongA" _
  (ByVal hWnd As Long, _
  ByVal nIndex As Long) _
  As Long

Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Private Const GWL_STYLE = (-16)
Private Const WS_VISIBLE = &H10000000
Private Const MAX_LEN = 255

Function fGetProcessID(ByVal strClassName As String) As Long
Dim hWnd As Long
Dim lngStyle As Long
Dim lpdwProcessID As Long

    hWnd = apiGetWindow(apiGetDesktopWindow, GW_CHILD)
    Do While hWnd
        lngStyle = apiGetWindowLong(hWnd, GWL_STYLE)
        If (lngStyle And WS_VISIBLE) Then
            If StrComp(strClassName, fGetClassName(hWnd)) = 0 Then
                Call apiGetWindowThreadProcessId(hWnd, lpdwProcessID)
                fGetProcessID = lpdwProcessID
                Exit Function
            End If
        End If
        hWnd = apiGetWindow(hWnd, GW_HWNDNEXT)
    Loop
End Function

Private Function fGetClassName(hWnd As Long)
    Dim strBuffer As String
    Dim lngCount As Long

    strBuffer = String$(MAX_LEN - 1, 0)
    lngCount = apiGetClassName(hWnd, strBuffer, MAX_LEN)
    If lngCount > 0 Then
        fGetClassName = Left$(strBuffer, lngCount)
    End If
End Function
'************** Code End ***************

    -- Dev

DHI <jeppe_klingberg_x@bigfoot.com> wrote in message
news:MPG.1200ed9fd827fcb8989681@news.dhi.dk...
: Hi Folks,
:
: Well, it may be a bit off-topic but I need a function in my Access
: App. (properly a MFD-function) which returns the process-ID for a given
: task as shown in the Task Manager.
:
: Thanx in advance..
:
: Regards Jeppe