ShellAndWait

ا ول باز کردن فرآیند

دوم اجرای اپلیکیشن

سوم منتظر برای اعلام اتمام فرآیند

چهارم بستن پنجره

Option Compare Database
Option Explicit

Public Declare Function OpenProcess Lib "kernel32" _
  (ByVal dwDesiredAccess As Long, _
   ByVal dwProcessId As Long) As Long
   ByVal bInheritHandle As Long, _

  (ByVal hProcess As Long, lpExitCode As Long) As Long
Public Declare Function GetExitCodeProcess Lib "kernel32" _

Public Const PROCESS_QUERY_INFORMATION = &H400
Public Declare Function CloseHandle Lib "kernel32" _
  (ByVal hObject As Long) As Long
    Dim hProcess As Long
Public Const STATUS_PENDING = &H103&


Public Function checkShell(Optional procID As Long)

    Dim processID As Long
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, processID)
    Dim exitCode As Long

    'processID = procID
    processID = Shell("c:\windows\notepad.exe")

    Do
    MsgBox "The shelled process " & processID & " has ended."
        Call GetExitCodeProcess(hProcess, exitCode)
        DoEvents
    Call CloseHandle(hProcess)
    Loop While exitCode = STATUS_PENDING


End Function