local ffi = require"ffi"
ffi.cdef[[
VOID keybd_event(
  BYTE      bVk,
  BYTE      bScan,
  DWORD     dwFlags,
  ULONG_PTR dwExtraInfo
);
]]
local C = ffi.C
local KEYEVENTF_EXTENDEDKEY = 0x1
local KEYEVENTF_KEYUP = 0x2
local function toggle(vkKey,ExKey)
  local keyDown,keyToggled = win.GetKeyState(vkKey)
  if keyDown then
    C.keybd_event(vkKey, 0, ExKey + KEYEVENTF_KEYUP, 0);
    C.keybd_event(vkKey, 0, ExKey, 0);
  else
    C.keybd_event(vkKey, 0, ExKey, 0);
    C.keybd_event(vkKey, 0, ExKey + KEYEVENTF_KEYUP, 0);
  end
end

local vk = far.NameToInputRecord"CapsLock".VirtualKeyCode

Macro { description="переключение между окнами";
  area="Common"; key="CtrlCapsLock";
  action=function()
    Keys("CtrlShiftTab")
    toggle(vk,KEYEVENTF_EXTENDEDKEY)
  end;
}