Running a second executable within a primary app.

'Attempt at running separate BMax executable within a BMax primary App:	
		
		Local proc:TProcess = TProcess.Create(AppDir + "/breakrun.exe" , 0)
			Print "Looking for path:"+ AppDir + "/breakrun.exe"
			Print "Proc.status is currently:" + proc.Status() 
		Delay 100' give process chance to start before checking its status
		
		DebugStop	'When debug mode enabled, this Must be allowing other app to run
				'successfully
				
				'Debug mode disabled, other app never runs ???+
		While proc.Status()
			Delay 100
		Wend
		
		Repeat
			Delay 20
			Print "Proc.status is currently:"+proc.Status() 
			count=count+1
		Until count=100
		'end jim b's advice
		
		DebugStop
		
	End'  Not interested in running remainder of app if 'sub - app' never executes........

	'Attempt at running separate BMax executable within a BMax primary App:	
	
	AppTitle$="Max App Launcher"
	

' variable to handle the launched application
exec$=(AppDir+"\breakrun.exe")

Local myproc:TProcess = TProcess.Create (exec$ , 0)'

'Local myproc:TProcess.Create(AppDir + "/breakrun.exe", 0 )

' timer for updating the statusbar
Local t:TTimer=CreateTimer(1)

' cross-platform executable extension filter
?Win32
Const ext$="Executable:exe"
?Linux
Const ext$=""
?Mac
Const ext$=""
?

' =====================================
' main loop
Repeat

			If AppRunning(myproc)
				Notify StripDir$(myproc.name$)+" still running, close this window to exit"
			Else
				f$=RequestFile$("Choose Executable",ext$)
				myproc=RunApp(f$)
			EndIf
		
		Exit
	'End Select
Forever

End

' =====================================

' launch an application
Function RunApp:TProcess(app$)
	If app$="" Return Null
    Local proc:TProcess=TProcess.Create(app$,0)
    If Not Proc Notify "Failed to launch "+app$
	Return proc
End Function

' return true if app still running
Function AppRunning(p:TProcess)
	If p<>Null
		If p.Status() Return True
	EndIf
End Function


' update the status bar to reflect 'app running' status
Function UpdateStatusBar(p:TProcess)
	If p=Null
		Print "App not running"
		Return
	EndIf
	If p.Status()
		Print "running"
	Else
		Print "App terminated"
	EndIf
End Function

'end of Jim Browns sweet advice