Tjek om program er åbent

i et modul
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
              ByVal lpWindowName As Long) As Long

i din form


Private Sub Command1_Click()
  Const WM_USER = 1024
  Dim hWnd As Long
  hWnd = FindWindow("XLMAIN", 0) ' 0 means Excel not running.
  If hWnd = 0 Then
    MsgBox " excel kører ikke"
  Else
    MsgBox " excel kører"
  End If
hWnd = FindWindow("notepad", 0) ' 0 means Notepad not running.
  If hWnd = 0 Then
    MsgBox " notepad kører ikke"
  Else
    MsgBox " notepad kører"
  End If
End Sub


du kan selv arbejde videre ;-))

Hej.

Prototypen på en tasklist kan du hente på http://jkfsoft.dk/pakker.tasklist.zip

M.v.h. Jørn

Igen.  http://jkfsoft.dk/pakker/tasklist.zip

Det kan jo smutte.

De virker men,
kabbak: Der er en fejl med Findwindow = sub or function not defined
joern: Din finder alle programmer der er åbne men det skal kun være hvis notepad åbnes.
Så hvis i har flere bud eller rettelser må i gerne komme med dem.

Hej.

Ja, tasklist er en prototype, som du kan tage kodebidder fra, til det formål, der nu er aktuelt.

M.v.h. Jørn

Tak jeg har fundet ud af hvordan jeg bruger tasklist.