My<cod/>.net
Как сменить переключение клавиатуры в Windows на клавиши Shift по отдельности?
Просмотров: 422
Ответов: 4
Подскажите программу-переключатель клавиатуры для Windows 7/XP, который можно настроить так:
- левый Shift — английская раскладка.
- правый Shift — русская раскладка.
Punto Switcher не предлагать. Сейчас пользуюсь SwitchIt, но он старый и не везде работает.
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 минут.
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;