#define VK_ESCAPE         0x1B
BOOL RegisterHotKey(
    HWND hWnd,	// window to receive hot-key notification
    int id,	// identifier of hot key
    UINT fsModifiers,	// key-modifier flags
    UINT vk 	// virtual-key code
   );

BOOL UnregisterHotKey(
    HWND hWnd,	// window associated with hot key
    int id 	// identifier of hot key
   );

function boolean RegisterHotKey(long handle, long id, ulong fsModifiers, ulong vk) library "user32.dll"
function boolean UnregisterHotKey(long handle,long id ) library "user32.dll"

long VK_ESCAPE= 27  //0x1B

/*to redirect ESCAPE to your application as WM_HOTKEY*/
RegisterHotKey( handle(w_main),  1 ,  0 , VK_ESCAPE)

/*to make ESCAPE working normally*/
UnregisterHotKey( handle(w_main),  1  )