Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As _
  Long, 
ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
 
Declare Function EnumProcesses Lib "PSAPI.DLL" (ByRef lpidProcess As Long, _
  ByVal cb As Long, ByRef cbNeeded As Long) As Long
Declare Function GetModuleFileNameExA Lib "PSAPI.DLL" (ByVal hProcess As Long, _
ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, _
ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
 
Dim lngCBSize&, lngCBSizeReturned&, lngLoop&, lngSize&, lngRet&
Dim lngProcId&, lngNumElements&
Dim lngProcessIDs&(), lngModules&(1 To 200), sModuleName$
lngCBSize& = 8
lngCBSizeReturned& = 96
 
Do While lngCBSize& <= lngCBSizeReturned&
    lngCBSize& = lngCBSize& * 2
    'Speicher reservieren
    ReDim lngProcessIDs(lngCBSize& / 4) As Long
    ' Prozessliste abrufen
    lngRet& = EnumProcesses(lngProcessIDs(1), lngCBSize&, lngCBSizeReturned&)
Loop
 
lngNumElements = lngCBSizeReturned& / 4
 
'Schleife über alle Prozesse
For lngLoop& = 1 To lngNumElements
    lngProcId& = lngProcessIDs(lngLoop&)
    ' Prozess Abrufen
    lngHwndProcess& = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, _
      0, lngProcId&)
    If lngHwndProcess& <> 0 Then
        sModuleName$ = Space(MAX_PATH)
        lngSize& = 500
        lngRet& = GetModuleFileNameExA(lngHwndProcess&, lngModules(1), _
          sModuleName$, lngSize&)
        '...
        ' in sModuleName$ ist der Prozessname enthalten...
    End If
Next i