How can I make a program start when another program opens?

See if this works for you.

Code:

Opt("TrayIconDebug", 1)
Opt("WinTitleMatchMode", 2)

$Notepad = "no"
$WordPad = "no"
$Calculator = "no"
$Paint = "no"

While 1
    Sleep(50)

    If WinExists("Notepad") And $Notepad = "no" Then
        Run("c:\windows\system32\calc.exe")
        WinWait("Calculator")
        $Notepad = "yes"
        $Calculator = "yes"
    EndIf
    If Not WinExists("Notepad") And $Calculator = "yes" Then
        WinClose("Calculator")
        WinWaitClose("Calculator")
        $Notepad = "no"
        $Calculator = "no"
    EndIf

    If WinExists("WordPad") And $WordPad = "no" Then
        Run("c:\windows\system32\mspaint.exe")
        WinWait("Paint")
        $WordPad = "yes"
        $Paint = "yes"
    EndIf
    If Not WinExists("WordPad") And $Paint = "yes" Then
        WinClose("Paint")
        WinWaitClose("Paint")
        $WordPad = "no"
        $Paint = "no"
    EndIf
WEnd

UsernameIssues said:

See if this works for you.

Code:

Opt("TrayIconDebug", 1)
Opt("WinTitleMatchMode", 2)

$Notepad = "no"
$WordPad = "no"
$Calculator = "no"
$Paint = "no"

While 1
    Sleep(50)

    If WinExists("Notepad") And $Notepad = "no" Then
        Run("c:\windows\system32\calc.exe")
        WinWait("Calculator")
        $Notepad = "yes"
        $Calculator = "yes"
    EndIf
    If Not WinExists("Notepad") And $Calculator = "yes" Then
        WinClose("Calculator")
        WinWaitClose("Calculator")
        $Notepad = "no"
        $Calculator = "no"
    EndIf

    If WinExists("WordPad") And $WordPad = "no" Then
        Run("c:\windows\system32\mspaint.exe")
        WinWait("Paint")
        $WordPad = "yes"
        $Paint = "yes"
    EndIf
    If Not WinExists("WordPad") And $Paint = "yes" Then
        WinClose("Paint")
        WinWaitClose("Paint")
        $WordPad = "no"
        $Paint = "no"
    EndIf
WEnd

Thanks so much its working perfectly!