Советы по Delphi
         

Переключение клавиатуры II


Здесь переключатели на русский и на английский.

    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;

Прислал Nomadic. [001616]



Содержание раздела