Как програмно переключить раскладку клавиатуры?
Материал из DRKB
Как программно переключить раскладку клавиатуры?[править | править код]
procedure TForm1.Button1Click(Sender: TObject); // На русский
var
Layout: array[0..KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout, '00000419'), KLF_ACTIVATE);
end;
procedure TForm1.Button2Click(Sender: TObject); // На английский
var
Layout: array[0..KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout, '00000409'), KLF_ACTIVATE);
end;
Source: Взято из http://forum.sources.ru
ID: 01511