AHK: скрипт для управления несколькими приложениями

Foobar_Path = E:\Foobar2000\foobar2000.exe


^!n::

    Process, Exist, Foobar2000.exe ; 
    If ErrorLevel 
        FooBarControl( "exit" )



IfWinExist SatAmp -
    WinActivate
else
    Run E:\SatAmp\SatAmp.exe
return


;-------------------------------------------------------------------------------
FooBarControl( fooCommand )
{
  
    BatchLines_Before := A_BatchLines 
    SetBatchLines, -1 

    Process, Exist, foobar2000.exe 
    Foo_PID := ErrorLevel 
    If NOT Foo_PID 
        Return 
   
    h_process := DllCall( "OpenProcess"            
                        , "UInt", 0x10|0x400    
                        , "Int" , False            
                        , "UInt", Foo_PID )       
    If ( ErrorLevel OR h_process = 0 ) 
        Goto, fbc_Return 

    VarSetCapacity( FooExePath, 255 )
    DllCall( "psapi.dll\GetModuleFileNameExA"   
            , "UInt", h_process                    
            , "UInt", 0                           
            , "Str" , FooExePath               
            , "UInt", 255 )                      
    fbc_Return:
    DllCall( "CloseHandle", "UInt", h_process )
    
    RunWait, e:\foobar2000\foobar2000.exe /exit 
    SetBatchLines, %BatchLines_Before%
    Return
} 
;-------------------------------------------------------------------------------

;--- Закрытие окна приложения, если оно существует
fnWinClose(vWin)
{
SetTitleMatchMode, 2
IfWinExist, %vWin%
  {
    WinClose
    ;WinKill
    return true
  }
return false
}

vWinName := "Mozilla Firefox"
vRunName := "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"

if (fnWinClose(vWinName))
  return
Run, %vRunName%
return

fnWinClose(vWin)
{
SetTitleMatchMode, 2
IfWinExist, %vWin%
  {
    WinClose
    ;WinKill
    return true
  }
return false
}