Как сменить переключение клавиатуры в Windows на клавиши Shift по отдельности?

Question

[char]

Подскажите программу-переключатель клавиатуры для Windows 7/XP, который можно настроить так:

1. левый Shift — английская раскладка.
2. правый Shift — русская раскладка.

Punto Switcher не предлагать. Сейчас пользуюсь SwitchIt, но он старый и не везде работает.

Comments

[homm]

Меня терзают смутные сомнения. Мне кажется, что вы знаете о Punto Switcher что-то такое, чего не знаю я и потому совершенно им доволен. Поделитесь?

[char]

Там слишком много ненужных для меня функций. Отключить некоторые так и не удалось. Если знаете термин bloatware, то это, видимо, как раз тот случай. Я попробовал и остался недоволен.

[homm]

Какие именно не удалось отключить? Не использую ни одной функции Punto Switcher кроме переключения раскладки контролами.

[char]

А сколько она у вас в памяти занимает при этом?
Помню, что были проблемы с отключением автокоррекции рус-лат. Также сама скорость переключения раскладок была непривычной. Я быстро печатаю вслепую, и здесь миллисекунды имеют значение. Если переключатель отработал поздно, полслова уже набрано в другой раскладке…

[homm]

3,5Мб виртуальной.
Не знаю, как у вас так получалось на столько быстро печатать.
Автопереключение выключается на самом видном месте: в контекстном меню значка в трее. После отключения можно значок в трее убрать.

[homm]

Мне кажется, вы просто мало намучились с неработающим переключением в различных приложениях, раз отметаете самый рабочий вариант :)

[char]

Спасибо, дам при случае еще один шанс. :)

[char]

У меня сейчас SwitchIt не переключает под «семеркой» в родных системных приложениях и некоторых других (WinRAR). Интересно, что в версии Starter все работает.

Answer 1

[schursin]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  ThreadId, InputLocaleId: THandle;
const
  English = $4090409;
  Russian = $4190419;
begin
  ThreadId := GetWindowThreadProcessId(GetForegroundWindow());
  InputLocaleId := GetKeyboardLayout(ThreadId);

  if Odd(GetAsyncKeyState(VK_LSHIFT)) then begin
    if InputLocaleId <> English then
      PostMessage(GetForegroundWindow(), WM_INPUTLANGCHANGEREQUEST, English, 0);
  end else if Odd(GetAsyncKeyState(VK_RSHIFT)) then begin
    if InputLocaleId <> Russian then
      PostMessage(GetForegroundWindow(), WM_INPUTLANGCHANGEREQUEST, Russian, 0);
  end;
end;

Потестил, работает и со стандартными окнами и с консолью.
Могу добавить «в трей» и откомпилить.

P.S. Можно глобальными хуками через DLL, но это явно не 40 минут.

Comments

[char]

Спасибо! Конечно, откомпилируйте, а то с этим кодом мне некуда идти. :)

[homm]

Не годится. Оно не будет работать с нужными раскладками ilyabirman.ru/typography-layout/
Вы кстати сколько приложений протестировали? В их числе все офисы были включая последнии и первые? Был emule?

[homm]

Ну и вообще, по таймеру проверять, не нажата ли сейчас кнопка, это очень не хорошо.

[schursin]

OOo, Far, Notepad, Cmd, Qip, Delphi, FF — дальше надоело тестить.

Конечно не хорошо, кто спорит — лучше использовать глобальные хуки через DLL-ку, но чем «хорошее», тем больше времени надо, а у нас тут не кружок программиста всё-таки.

Исходник и ехе: depositfiles.com/files/cnob1cvps

[char]

Спасибо большое, опробую!

[homm]

И это правильный ответ. Чистая победа говнокода :(

[schursin]

Выпустить готовый продукт в красивой обертке, увы, не было целью этого вопроса.
А вот факт работоспособности, остается фактом.

[char]

, я плюсанул оба ответа, но условиям задачи точнее отвечает данное решение. К Punto Switcher'у я тоже вернусь. Благодарю за вклад в дискуссию.

[char]

Комментарий выше был к homm.

Answer 2

[homm]

А я всетаки предложу Punto Switcher.

Answer 3

[schursin]

Первое что пришло на ум — написать, не должно занять больше чем 40 минут.

Comments

[homm]

Это очень не просто. Разные приложения получают события от клавиатуры по разному, нужно очень долго тестировать. Никакие переключалки не работали у меня лучше Пунто Свичера.

[char]

Попробуйте. Судя по тому, что аналогов я не нашел, программа может оказаться полезной многим.

[schursin]

Хорошо, сейчас попробую, как раз 20 свободных минут есть.

Answer 4

[YasonBy]

Существует скрипт для AutoHotKey, но там переключение по правому Ctrl'у, так что нужно будет допилить.