Hi Naomi,
Sorry to hear that. Can't find anything wrong in those part of code. I guess I can't help you any further :-(
>Apparently it didn't help and made it even worse. Could you please take another look?
>
>************************************************************
>* FUNCTION DeclareDLLs()
>************************************************************
>* Author............: VCS Developers Team
>* Project...........: Visual Collections System
>* Created...........: 01/02/2006 12:22:27
>* Copyright.........: (c) Jzanus, 2006
>*) Description.......:
>* Calling Samples...:
>* Parameter List....:
>* Major change list.:
>function DeclareDLLs()
>* We need some API calls, declare here
>* GetCurrentProcess() returns the pseudohandle of the current process
>declare integer GetCurrentProcess in WIN32API as GetCurrProc
>
>* WaitForIdleInput() waits until the target process is idle for input
>declare integer WaitForInputIdle in WIN32API as WaitInpIdle ;
> integer nProcessHandle, ;
> integer nWaitForDuration
>
>* WaitForSingleObject() waits until the handle in parm 1 is signalled
>* or the timeout period expires
>declare integer WaitForSingleObject in WIN32API as WaitOnAppExit ;
> integer hProcessHandle, ;
> integer dwTimeOut
>
>* This API call does the work. The parameters are as follows:
>* lpszModuleName - ptr-> file name of module to execute. Since we aren't launching .CPLs, do not use
>* lpszCommandLine - ptr-> command to execute, as passed to us
>* lpSecurityAttributesProcess - ptr-> SECURITY_ATTRIBUTES structure for Process. Pass a null pointer
>* lpSecurityAttributesThread - ptr-> SECURITY_ATTRIBUTES structure for first thread. Pass a null pointer
>* bInheritHandles - whether or not chlid inherits parent handles. Since no SECURITY_ATTRIBUTES passed, default to FALSE
>* dwCreateFlags - Process Creation Mode flag set. We use the default mode at normal priority, ie 0
>* lpvEnvironment - ptr-> a set of environment strings as if a MULTI_SZ. We don't set, so pass a null pointer
>* lpszStartupDir - ptr-> the starting directory. If none provided to us, pass a null pointer
>* lpStartInfo - ptr-> a STARTUPINFO structure. We use one structure member at times.
>* lpProcessInfo - ptr-> a PROCESS_INFORMATION structure, used to return PID/PHANDLE detail.
>* We use one member on return
>declare SHORT CreateProcess in WIN32API as CrPr ;
> string lpszModuleName, ;
> string @lpszCommandLine, ;
> string lpSecurityAttributesProcess, ;
> string lpSecurityAttributesThread, ;
> SHORT bInheritHandles, ;
> integer dwCreateFlags, ;
> string lpvEnvironment, ;
> string lpszStartupDir, ;
> string @lpStartInfo, ;
> string @lpProcessInfo
>
>declare long CloseHandle in Kernel32 long hObject
>
>endfunc
>********************************************************************
>* Description.......: LaunchAppAndWait
>* Calling Samples...:
>* lcDir=justpath(oJC.OutTable)
>* if file('C:\MAILERS\MP4W32.exe')
>* pStatus=LaunchAppAndWait('C:\MAILERS\MP4W32.exe',lcDir)
>* else
>* =messagebox('Can not find Mailers program!',48,'Error')
>* pStatus=0
>* endif
>* Parameter List....: tcCommandLine, tuFromDir, tcWindowMode
>* Created by........: Ed Rauh
>* Modified by.......:
>********************************************************************
>function LaunchAppAndWait
>lparameters tcCommandLine, tuFromDir, tcWindowMode
>
>* tcCommandLine (R) - command line to launch
>* tuFromDir (O) - Run from directory (default - CWD)
>* tcWindowMode (O) - Start Application Window mode, one of (HIDE, MIN, MAX, NOR)
>* (default - default setting of application)
>
>* Returns:
>* 0 = CreateProcess didn't start what was asked
>* 1 = Process ran to completion
>* -1= Process started but user aborted wait. Danger - app is still running AFAIK
>
>if vartype(m.tcCommandLine) # 'C'
>* Command line must be a character string
> return 0
>endif
>
>#define cnINFINITE 0xFFFFFFFF
>#define cnHalfASecond 500
>#define cnTimedOut 0x0102
>if vartype(m.tuFromDir) # 'C'
>
>* If not a character string, pass a null pointer, defaulting to Current Working Dir
> tuFromDir = 0
>
>else
>
>* Otherwise, null pad the string
> tuFromDir = m.tuFromDir + chr(0)
>endif
>if vartype(m.tcWindowMode) # 'C'
>
>* If not passed, set to null string
> tcWindowMode = ''
>
>else
>
>* Translate the passed window mode to uppercase
> tcWindowMode = upper(m.tcWindowMode)
>
>endif
>
>local nStartedProcessHandle, uResult, cProcessInfo, cStartUpInfo, hThread
>
>* Make default Structures for the CreateProcess call
>*
>* ProcessInfo - 4 bytes, a Process handle, a Thread Handle, a (DWORD) ProcessId and a (DWORD) ThreadID
>* we save the Process handle and return it to caller in tnReturnProcessHandle
>
>cProcessInfo = replicate(chr(0),16)
>
>* StartUpInfo is a 68 byte long complex structure; we either have 68 bytes with a cb member (byte 1) 68
>* or with cb of 68, dwFlag low order byte (byte 45) of 1, and low order byte wShowWindow (byte 49) set to
>* the SW_ value appropriate for the Window Mode desired.
>
>do case
>case m.tcWindowMode = 'HIDE'
>
>* Hide - use STARTF_USESHOWFLAG and value of 0
> cStartUpInfo = chr(68) + ;
> replicate(chr(0),43) + ;
> chr(1) + ;
> replicate(chr(0),23)
>
>case m.tcWindowMode = 'NOR'
>
>* Normal - use STARTF_USESHOWFLAG and value of 1
> cStartUpInfo = chr(68) + ;
> replicate(chr(0),43) + ;
> chr(1) + ;
> replicate(chr(0),3) + ;
> chr(1) + ;
> replicate(chr(0),19)
>
>case m.tcWindowMode = 'MIN'
>
>* Minimize - use STARTF_USESHOWFLAG and value of 2
> cStartUpInfo = chr(68) + ;
> replicate(chr(0),43) + ;
> chr(1) + ;
> replicate(chr(0),3) + ;
> chr(2) + ;
> replicate(chr(0),19)
>
>case m.tcWindowMode = 'MAX'
>
>* Maximize - use STARTF_USESHOWFLAG and value of 3
> cStartUpInfo = chr(68) + ;
> replicate(chr(0),43) + ;
> chr(1) + ;
> replicate(chr(0),3) + ;
> chr(3) + ;
> replicate(chr(0),19)
>
>* Other options exist - see WINBASE.H for values
>
>otherwise
>
>* Use default of application
> cStartUpInfo = chr(68) + replicate(chr(0),67)
>
>endcase
>
>* Do it now!
>uResult = CrPr( 0, ;
> m.tcCommandLine, ;
> 0, 0, 0, 0, 0, ;
> m.tuFromDir, ;
> @cStartUpInfo, ;
> @cProcessInfo)
>
>if m.uResult = 1
>
>* CreateProcess() started our app, but we have to wait until it finishes loading
>
>* Strip the process handle from the PROCESS_INFORMATION structure
>
>* nStartedProcessHandle = (((asc(subst(cProcessInfo,4,1))*256) + ;
>* asc(subst(cProcessInfo,3,1)))*256 + ;
>* asc(subst(cProcessInfo,2,1)))*256 + ;
>* asc(left(cProcessInfo,1))
>
>** should be this
> nStartedProcessHandle = (((asc(subst(m.cProcessInfo,4,1))*256^3) + ;
> asc(subst(m.cProcessInfo,3,1)))*256^2 + ;
> asc(subst(m.cProcessInfo,2,1)))*256 + ;
> asc(left(m.cProcessInfo,1))
>
>** Get Thread handle also
>** Both handles must then be closed using CloseHandle() API
> hThread = (((asc(subst(m.cProcessInfo,8,1))*256^3) + ;
> asc(subst(m.cProcessInfo,7,1)))*256^2 + ;
> asc(subst(m.cProcessInfo,6,1)))*256 + ;
> asc(left(m.cProcessInfo,5))
>
>* =WaitInpIdle(GetCurrProc(),cnINFINITE)
>
>* Wait for the idle of the new/child process not the idle of the current process
> WaitInpIdle( m.nStartedProcessHandle, cnINFINITE )
>
> do while WaitOnAppExit(m.nStartedProcessHandle, cnHalfASecond) = cnTimedOut
>
>* Give us an out in case the other app hangs - lets the user quit via
> if inkey() = 27
>* Still running but we aren't waiting - return a -1 as a warning
> uResult = -1
> exit
> endif
>
> enddo
>
>** Process & Thread Handles must be closed
>** or else it will remains in the system
>
> if (m.nStartedProcessHandle != 0)
> CloseHandle(m.nStartedProcessHandle )
> endif
>
> if (m.hThread != 0)
> CloseHandle(m.hThread )
> endif
>endif
>
>return m.uResult
>
Herman
