🚀 go-pugleaf

In article <932070223.927.48@news.remarQ.com>,
  "Donald Stewart" <d.stewart@qcsllc.net> wrote:
>
> '***************************************************************
> 'Windows API/Global Declarations for :ExecCmd
> '***************************************************************
>
> 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&
>
> Source Code:
> Note:This code is formatted to be pasted directly into VB.
> Pasting it into other editors may or may not work.
>
> '***************************************************************
> ' Name: ExecCmd
> ' Description:Wait for Shelled app to end
> This code will open Notepag by shelling it, and Then will wait until
it
> terminates to continue With the program. This is pretty cool,
although I
> have not been able to determine a lottle bug this program has. When
the
> program is shelled, the window dows not redraw until the shelled
application
>  is terminated.
> ' By: Semin Nurkic
> '
> '
> ' Inputs:None
> '
> ' Returns:None
> '
> 'Assumes:None
> '
> 'Side Effects:None
> '
> 'Code provided by Planet Source Code(tm) (http://www.PlanetSource
> '     Code.com) 'as is', without warranties as to performance,
fitness,
> '     merchantability,and any other warranty (whether expressed or
impl
> '     ied).
> '***************************************************************
>
> Public Sub ExecCmd(cmdline$)
>
>     Dim proc As PROCESS_INFORMATION
>     Dim start As STARTUPINFO
>     start.cb = Len(start)
>     ' Shell the 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
>
> Now place this code in the Form_Click Event of the Startup form:
> ExecCmd "notepad.exe"
> MsgBox "Notepad Terminated!", vbExclamation, "Terminated!"
>
> Hugo Palma wrote in message <3780FD98.33D7FD8E@mail.telepac.pt>...
> >I'm using the shell command to execute a certain program but shell
> >doesn't guarantee that the program will finish running when the next
> >instruction in the program code is executed.
> >How do i do, so that i can guarantee that the shell command finishes
and
> >only then will the program continue running ?
> >Thanks.
> >


If you are running the second program in another window, you can be
sure it runs without letting VB continue until the second proram loses
focus by doing this:

Dim vApp

vApp = Shell("pathname", vbMaximizedFocus)
AppActivate vApp, True
DoEvents

Whigglesworth


Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.