Изменение языка ввода клавиатуры в Delphi

Система и файлы   3 Октябрь 2010  Автор статьи: admin 

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

procedure SetRU;
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);
end;

procedure SetEN;
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
end;

Научиться программировать

  • на Delphi

  • на Java

  • на C++