[转帖]执行外部程序直到程序关闭

efan2000

32-Bit App Can Determine When a Shelled Process Ends

Step-by-Step Example

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add the following code to the general declarations section of Form1:

         Private Type STARTUPINFO
            cb As Long
            lpReserved As String
            lpDesktop As String
            lpTitle As String
            dwX As Long
            dwY As Long
            dwXSize As Long
            dwYSize As Long
            dwXCountChars As Long
            dwYCountChars As Long
            dwFillAttribute As Long
            dwFlags As Long
            wShowWindow As Integer
            cbReserved2 As Integer
            lpReserved2 As Long
            hStdInput As Long
            hStdOutput As Long
            hStdError As Long
         End Type
   
         Private Type PROCESS_INFORMATION
            hProcess As Long
            hThread As Long
            dwProcessID As Long
            dwThreadID As Long
         End Type
   
         Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _
            hHandle As Long, ByVal dwMilliseconds As Long) As Long
   
         Private Declare Function CreateProcessA Lib "kernel32" (ByVal _
            lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _
            lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
            ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
            ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _
            lpStartupInfo As STARTUPINFO, lpProcessInformation As _
            PROCESS_INFORMATION) As Long
   
         Private Declare Function CloseHandle Lib "kernel32" (ByVal _
            hObject As Long) As Long
   
         Private Const NORMAL_PRIORITY_CLASS = &H20&
         Private Const INFINITE = -1&
   
         Public Sub ExecCmd(cmdline$)
            Dim proc As PROCESS_INFORMATION
            Dim start As STARTUPINFO
   
            ' Initialize the STARTUPINFO structure:
            start.cb = Len(start)
   
            ' Start the shelled application:
            ret& = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _
               NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
   
            ' Wait for the shelled application to finish:
            ret& = WaitForSingleObject(proc.hProcess, INFINITE)
            ret& = CloseHandle(proc.hProcess)
         End Sub
   
   

3. Add the following code the Form_Click() event procedure of Form1:

         Sub Form_Click ()
            ExecCmd "notepad.exe"
            MsgBox "Process Finished"
         End Sub
   
   

4. Press the F5 key to run the application.
5. Using the mouse, click the Form1 window. At this point the Notepad application is shelled.