Step := 10 
CapsLock & WheelDown:: AppVolume("Vol", -Step)
CapsLock & WheelUp:: AppVolume("Vol", +Step)
CapsLock & MButton:: AppVolume("Mute", 2)  

AppVolume(Key, Val) {
    WinGet, Pid, PID, A
    WinGet, Title, ProcessName, ahk_pid %Pid%
    if Title = explorer.exe
        Pid := 0 , Title := "Системные звуки" 
    Res := VA_AppVolume(Key, Val, Pid)
    if Res =
        Res := "Отсутствует в микшере громкости", Key := ""
    Res := (Key = "Mute") ? (Res = 0 ? "Mute OFF": "Mute ON") : Res
    TrayTip, % Title, % Res, 1, 1
}

Launch_Mail:: ExclusiveAppVolume()

ExclusiveAppVolume() {
    Static T, PrPid
    WinGet, Pid, PID, A
    WinGet, ProcessName, ProcessName, ahk_pid %Pid%
    ProcessName := RTrim( ProcessName, "\.exe")
    StringUpper, ProcessName, ProcessName
    if ProcessName = explorer 
        Pid := 0 , ProcessName := "Системные звуки" 
    ListPid := 0 "|" VA_AppVolume("ListPid")
    ListPid := RTrim( RegExReplace( ListPid, "S)(^|\|)" Pid "($|\|)", "$1", Count, 1), "|") 
    If !Count
        Return
    T := PrPid = Pid ? !T : 1
    PrPid := Pid
    Loop, parse, ListPid, | 
        VA_AppVolume("Mute", T, A_LoopField) 
    VA_AppVolume("Mute", 0, Pid)    
    TrayTip, Exclusive app sound , % "`n" (T ? "Только """ ProcessName """" : "Все звуки включены") , 1, % T ? 3 : 2
}

    ;   Requirements:
    ;   VA 2.1 - http://www.autohotkey.com/forum/topic23792.html
    ;   https://dl.dropbox.com/u/20532918/Lib/VA-2.2.zip    DownLoad - VA-2.2.zip
    ;   Windows 7
    ;   AutoHotkey_L
    ;
    ;   Currently not included in VA.ahk
    ;
    ;   Post Lexikos - http://www.autohotkey.com/board/topic/78224-possible-to-monitor-and-pseudo-lock-per-app-volume/#entry497079
    ;
    ;   VA_AppVolume

VA_AppVolume(Key, Val = "", Pid = "!")
{
    dev := VA_GetDevice()
    if !dev
        Return
    if VA_IMMDevice_Activate(dev, "{77AA99A0-1BD6-484F-8BC7-2C654C9A9B6F}", 7, 0, mgr) != 0 ; IID_IAudioSessionManager2
        Return ObjRelease(dev)
    ObjRelease(dev)
    if VA_IAudioSessionManager2_GetSessionEnumerator(mgr, enm) != 0
        Return ObjRelease(mgr)
    ObjRelease(mgr)
    VA_IAudioSessionEnumerator_GetCount(enm, count)
    Loop % count
    {
        VA_IAudioSessionEnumerator_GetSession(enm, A_Index-1, ssn)
        VA_IAudioSessionControl2_GetProcessId(ssn, curpid)
        if (Pid = curpid)
        {
            sav := ComObjQuery(ssn, "{87CE5498-68D6-44E5-9215-6DA47EF883D8}") ; IID_ISimpleAudioVolume
            ObjRelease(ssn)
            if !sav
                Return
            DllCall(NumGet(NumGet(sav+0)+6*A_PtrSize), "uint", sav, "int*", mute) ; GetMute
            if (Key = "Vol")
            {
                DllCall(NumGet(NumGet(sav+0)+4*A_PtrSize), "uint", sav, "float*", volume) ; GetVolume
                if mute = 1
                    DllCall(NumGet(NumGet(sav+0)+5*A_PtrSize), "uint", sav, "int", 0) ; SetMute
                vol := (volume + Val / 100)
                vol := (vol > 1) ? 1 : (vol < 0) ? 0 : vol
                DllCall(NumGet(NumGet(sav+0)+3*A_PtrSize), "uint", sav, "float", vol) ; SetVolume
                Return Round(vol*100), ObjRelease(sav), ObjRelease(enm)
            }
            if (Key = "Mute")
            {
                if (Val = "Get")
                    Return mute, ObjRelease(sav), ObjRelease(enm)
                DllCall(NumGet(NumGet(sav+0)+5*A_PtrSize), "uint", sav, "int", mute := (Val = 2) ? !mute : Val) ; SetMute
                Return mute, ObjRelease(sav), ObjRelease(enm)
            }
            if (Key = "SetVol")
            {
                if mute = 1
                    DllCall(NumGet(NumGet(sav+0)+5*A_PtrSize), "uint", sav, "int", 0) ; SetMute
                DllCall(NumGet(NumGet(sav+0)+3*A_PtrSize), "uint", sav, "float", Val / 100) ; SetVolume
                Return Val, ObjRelease(sav), ObjRelease(enm)
            }
            if (Key = "GetVol")
            {
                DllCall(NumGet(NumGet(sav+0)+4*A_PtrSize), "uint", sav, "float*", volume) ; GetVolume
                Return Round(volume*100), ObjRelease(sav), ObjRelease(enm)
            }
        }
        ObjRelease(ssn)
        ListPid .= curpid "|"
    }
    ObjRelease(enm)

    if (Key = "ListPid")
    {
        Loop, parse, ListPid, |
            List .= (WinExist("ahk_pid " A_LoopField) ? A_LoopField "|" : "")
        Return RTrim( List, "|")
    }
}