Shell and wait

Discussion in 'Code Samples & Tips' started by Erel, Mar 26, 2008.

  1. Erel

    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

    Code:
    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
     

    Attached Files:

Loading...