Переключение раскладки клавиатуры
|
|
Здесь переключатели на русский и на английский. 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; |