Est-ce que "Quitter les autres" est possible ?

L'utilisation de la Réponse SO référencée par Diago La modification suivante pourrait peut-être exclure l'application actuellement active :

tell application "System Events"
    set the visible of every process to true
    set app_name to name of the first process whose frontmost is true
end tell
set white_list to {"Finder", app_name}
try
    tell application "Finder"
        set process_list to the name of every process whose visible is true
    end tell
    repeat with i from 1 to (number of items in process_list)
        set this_process to item i of the process_list
        if this_process is not in white_list then
            tell application this_process
                quit
            end tell
        end if
    end repeat
on error
    tell the current application to display dialog "An error has occurred!" & return & "This script will now quit" buttons {"Quit"} default button 1 with icon 0
end try

Vous pouvez ensuite l'ajouter en tant que service à l'aide d'Automator et lui attribuer un raccourci clavier dans la section Clavier des préférences système.