[NumLock]

Сообщение от cadil

Спасибо! Вопрос от чайника - как на форме программы отбразить информацию о текущей раскладке клавиатуры? Ответ нашел, но он мне кажется слишком сложным.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  buf: array [0..$ff] of Char;
begin
  GetKeyboardLayoutName(buf);
  Edit1.Text:=StrPas(buf);
end;

переключить на en:

Код:

LoadKeyboardLayout(PChar('00000409'), KLF_ACTIVATE);

переключить на ru:

Код:

LoadKeyboardLayout(PChar('00000419'), KLF_ACTIVATE);

00000409 - en
00000419 - ru