#include <Misc.au3>

If Not _Singleton(@ScriptName, 1) Then
   MsgBox(16, "Error", "An instance of this application is running, please close it before start a new one")
   Exit
EndIf

HotKeySet("{ESC}", "Quit")

While Sleep(10)
WEnd

Func Quit()
   Exit
EndFunc