How to see what's running

[spidie_man_home]

Hey guys looking for a little peice of code that will find out what programms are runing. any help would be much appreciated.

[Megatron]

Use the EnumWindows function.

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim Length As Long
    Dim sName As String
    Dim Temp As String
    Static iCount As Integer
    
    iCount = iCount + 1
    Length = GetWindowTextLength(hwnd) + 1
    
    If Length > 1 Then
      sName = Space(Length)
      GetWindowText hwnd, sName, Length
      Debug.Print Left(sName, Length - 1)
    End If
    
    EnumWindowsProc = 1
End Function

Usage:

EnumWindows AddressOf EnumWindowsProc, 0

[techman2553]

I tried your code, but I get an "Invalid Use of AddressOf Operator" Error for:

EnumWindows AddressOf EnumWindowsProc, 0

Any Ideas?

[Megatron]

Works fine for me. Did you place all of the code in the right place? Put the main function and API declarations in a standard module, and put this line in a button.

EnumWindows AddressOf EnumWindowsProc, 0

[markman]

Search for something called winkilla at psc. It has what you want

[techman2553]

I don't know what I did, but I cut and pasted the code again and it worked... Thanks !!!