Shell and wait

Erel

Administrator
Staff member
Licensed User
The following code allows you to run an external application and wait for it to finish (unlike regular Shell which continues to run immediately).
It requires the Door library: http://www.basic4ppc.com/forum/showthread.php?p=11025

B4X:
Sub Globals
    'Declare the global variables here.

End Sub

Sub App_Start
    'Initialize objects
    process.New1(false)
    process.CreateNew("System.Diagnostics.Process" & process.System_NS)
    StartInfo.New1(false)
    StartInfo.Value = process.GetProperty("StartInfo")
    
    'Usage
    ShellAndWait("iexplore","www.basic4ppc.com")
    Msgbox("After Shell")
End Sub

Sub ShellAndWait(File, Arguments)
    StartInfo.SetProperty("FileName",File)
    StartInfo.SetProperty("Arguments",arguments)
    process.RunMethod("Start")
    process.RunMethod("WaitForExit")
    process.RunMethod("Close")
End Sub
 

Attachments

Top