Управляем подсветкой клавиатуры при смене языка ввода

Я джва(больше) года об этом мечтал, с момента появления этих подсветок. Идея такая очевидная и удобная, и странно почему до сих пор этого нет стандартной фишкой клавы-системы. Это же суперудобно, даже смотреть не надо: благодаря переферическому зернию мозг всегда будет знать какой сейчас язык.

Мб потому что большая часть компаний родом из англоязычных стран, им переключать ничего не нужно.

Как Вы считаете, можно ли сделать это приложение сервисом, чтобы оно запускалось до входа в систему? Не силён в этой части...

Делал нечто подобное - правда, не с подсветкой клавиатуры, а отдельными светодиодами. Очень удобно и наглядно. Проблема в том, что приходится часто работать по RDP, а как получать язык раскладки из RDP-сеанса, придумать не получилось.

А с клавиатурой на QMK прошивке можно такое провернуть? Как клавиатура понимает какой сейчас языковой режим Windows?

(Не совсем по теме, зато работает с любой клавиатурой)

Последние 15 лет пользуюсь утилитой KbLangLED (14.5 Kb). При переключении раскладки она переключает (светодиод) ScrollLock. К ней прилагается исходник, источник alt-soft.info мёртв.

program KbLangLED;

uses
  Windows;


type
  TKbLEDTag = (kbledNum, kbledCaps, kbledScroll);

procedure ToggleKeybrdLED(LEDTag: TKbLEDTag);

  procedure SimulateLkKey(KeyDown: Boolean);
  const
    VKeyCodes: array[TKbLEDTag] of Byte = (VK_NUMLOCK, VK_CAPITAL, VK_SCROLL);
    ScanCodes: array[TKbLEDTag] of Byte = ($45, $3A, $46);
  begin
    keybd_event(VKeyCodes[LEDTag], ScanCodes[LEDTag], KEYEVENTF_EXTENDEDKEY +
      Ord(not KeyDown) * KEYEVENTF_KEYUP, 0);
  end;

begin
  SimulateLkKey(True);
  SimulateLkKey(False);
end;


const
  LangKbLED = kbledScroll;  // LED to indicate language

var
  Mutex: THandle;
  EnUS: Boolean;
  OldEnUS: Boolean = True;
  Msg: TMsg;

begin
  // Check already running
  Mutex := CreateMutex(nil, True, 'KbLangLED_Running');
  if WaitForSingleObject(Mutex, 0) <> WAIT_OBJECT_0 then
    Exit;

  // Turn off the feedback cursor
  if PostThreadMessage(GetCurrentThreadId, 0, 0, 0) then
    GetMessage(Msg, 0, 0, 0);

  while True do
  begin
    EnUS := GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow)) and
      $FFFF = $0409;
    if EnUS <> OldEnUS then
    begin
      ToggleKeybrdLED(LangKbLED);
      OldEnUS := EnUS;
    end;
    Sleep(100);
  end;
end.

Идея класс.

Но в текущих реалиях интересует осилит ли хук SetWindowsHookEx заметить изменения языка при работе с RDP и подобным. Нередко что язык хоста у меня один - RDP другой, сработает ли ваше решение в этом случае или нет? Было бы интересно узнать.

Использую такое же под линуксом. там это можно реализовать "штатными" средствами. В моем случае это OpenRazer + KDE (в нем можно настроить запуск произвольного скрипта при переключени раскладки, им дергается настройка подсветки из OpenRazer). Клавиатура - Razer Cynosa Lite, у неё прозрачные символы, они подсвечиваются в зависимости от раскладки. С одной стороны, это лучше, чем сплошная подсветка под клавишами, не бьет по глазам в вечернее время. С другой - они в целом выглядят тусклее, чем на обычной клавиатуре: серый на черном вместо белого на черном. Видимо, это проблема большинства игровых клавиатур.