F_WAIT_TO_RUN

// Function Name : f_wait_to_run
// Argument Name : (None)
// Return Type :       (None)

OleObject ole_wsh
Integer li_connect

CONSTANT Integer NORMAL = 1
CONSTANT Integer MINIMIZED = 2
CONSTANT Integer MAXIMIZED = 3

/*
0    Hides the window and activates another window.
1    Activates and displays a window. If the window is
    minimized or maximized, the system restores it to its
    original size and position. An application should specify
    this flag when displaying the window for the first time.
2    Activates the window and displays it as a minimized window.
3    Activates the window and displays it as a maximized window.
4     Displays a window in its most recent size and position.
    The active window remains active.
5    Activates the window and displays it in its current size and position.
6    minimizes the specified window and activates the next top-level window
    in the Z order.
7    Displays the window as a minimized window. The active window remains active.
8    Displays the window in its current state. The active window remains active.
9    Activates and displays the window. If the window is minimized or maximized,
    the system restores it to its original size and position. An application should
    specify this flag when restoring a minimized window.
10    Sets the show state based on the state of the program that started the application.
*/

CONSTANT boolean WAIT = TRUE
CONSTANT boolean NOWAIT = FALSE

wsh = Create OleObject
li_connect = wsh.ConnectToNewObject("WScript.Shell")
li_connect = wsh.Run("Notepad", NORMAL, WAIT)
MessageBox("Wait To Run", "I am Standing behind you.....")

0 comments:

Post a Comment