Option Explicit
 
' alle benötigten API-Deklarationen
Private Declare Function GetWindowThreadProcessId Lib _
  "user32" (ByVal hWnd As Long, _
  lpdwProcessId As Long) As Long
 
Private Declare Function CreateToolhelpSnapshot Lib _
  "Kernel32" Alias "CreateToolhelp32Snapshot" ( _
  ByVal lFlgas As Long, ByVal lProcessID As Long) _
  As Long
 
Private Declare Function ProcessFirst Lib "Kernel32" _
  Alias "Process32First" (ByVal hSnapshot As Long, _
  uProcess As PROCESSENTRY32) As Long
 
Private Declare Function ProcessNext Lib "Kernel32" _
  Alias "Process32Next" (ByVal hSnapshot As Long, _
  uProcess As PROCESSENTRY32) As Long
 
Private Declare Sub CloseHandle Lib "Kernel32" ( _
  ByVal hPass As Long)
 
Private Const TH32CS_SNAPPROCESS As Long = 2&
Private Const MAX_PATH As Long = 260
 
Private Type PROCESSENTRY32
  dwSize As Long
  cntUsage As Long
  th32ProcessID As Long
  th32DefaultHeapID As Long
  th32ModuleID As Long
  cntThreads As Long
  th32ParentProcessID As Long
  pcPriClassBase As Long
  dwflags As Long
  szexeFile As String * MAX_PATH
End Type

' Ermittelt den Namen der EXE-Datei eines Fenster
' anhand des übergebenen Fensterhandles (hWnd)
Public Function GetExeFromHWND(hWnd As Long) As String
  Dim lThreadID As Long
  Dim lProcessID As Long
  Dim lSnapshot As Long
  Dim uProcess As PROCESSENTRY32
  Dim lProcessFound As Long
  Dim i As Integer
  Dim sEXEName As String
 
  ' Prozess-ID ermitteln
  lThreadID = GetWindowThreadProcessId(hWnd, lProcessID)
 
  ' Prüfen, ob ID's gültig
  If lThreadID <> 0 And lProcessID <> 0 Then
    ' "Snapshot" des aktuellen Prozess ermitteln
    lSnapshot = CreateToolhelpSnapshot( _
    TH32CS_SNAPPROCESS, 0&)
 
    ' Fehler?
    If lSnapshot = -1 Then Exit Function
 
    ' uProcess-Struktur füllen
    With uProcess
      .dwSize = Len(uProcess)
 
      ' alle aktuellen Prozesse durchlaufen
      lProcessFound = ProcessFirst(lSnapshot, uProcess)
      Do While lProcessFound
        If .th32ProcessID = lProcessID Then
          ' ProzessID gefunden
          ' jetzt EXE-Name ermitteln
          If InStr(.szexeFile, Chr$(0)) > 0 Then
            sEXEName = Left$(.szexeFile, _
              InStr(.szexeFile, Chr$(0)) - 1)
          End If
          Exit Do
        Else
          ' ...weitersuchen...
          lProcessFound = ProcessNext(lSnapshot, _
            uProcess)
        End If
      Loop
    End With
 
    ' Handle schliessen
    Call CloseHandle(lSnapshot)
  End If
 
  GetExeFromHWND = sEXEName
End Function

Rechtschreibfehler stehen unter Copyright und d?rfen nur gegen Bezahlung weiterverwendet werden.