Aktive programmer i hukommelsen

kig på http://msdn.microsoft.com =)

har prøvet, den side er det mest rodede jeg længe har set. søg på api og der kommer masse i relevante links op, hvor flere er døde.

Det må være denne her du mener.

\'----------------------- Module1 -----------------------
Declare Function EnumWindows Lib \"user32\" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
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

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String
Dim Ret As Long

Ret = GetWindowTextLength(hwnd)
sSave = Space(Ret)
  If sSave <> \"\" Then
    GetWindowText hwnd, sSave, Ret + 1
    Form1.List1.AddItem sSave \'List1
  End If
EnumWindowsProc = True
End Function
\'----------------------- Module1 -----------------------


\'------------------------ Form1 ------------------------
Private Sub Form_Load()
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub
\'------------------------ Form1 ------------------------

lytter med... :)

Takker SJH det kører jo perfekt :-)

selv tak :-)