En shell function

fandt selv ud af det..

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Const STILL_ACTIVE              As Long = &H103
Private Const PROCESS_QUERY_INFORMATION As Long = &H400

Public Sub ShellWait(ByVal strFile As String, _
                    Optional emuStyle As VbAppWinStyle = vbNormalFocus)
Dim lR As Long
Dim hProcess As Long
  hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, _
            Shell(strFile, emuStyle))
  If (hProcess <> 0) Then
    Do
      Call GetExitCodeProcess(hProcess, lR)
      DoEvents: Sleep 1
    Loop While lR = STILL_ACTIVE
  End If
End Sub

Private Sub Command1_Click()
Const FILE As String = "c:\winnt\system32\notepad.exe"
  Call ShellWait(FILE)
  MsgBox FILE
End Sub

Lukker her med

Hejsa...jeg kunne selv godt tænke mig et lille program, der kører i baggrunden.
Man starter det op, og når man så lukker et af flere bestemte programmer skal det smide en msgbox op på skærmen.
Kan jeg bruge din kode til det, og i givet fald hvordan?
Jeg er ikke så skarp til VB...endnu :)

Hvis du kan hjælpe så skriv lige. Så laver jeg et nyt spørgsmål!

/Kasper

Ja det kan du godt men jeg er ikke helt sikker på hvad du mender !!!

Cool...så opretter jeg lige et spørgsmål c",)