Вот решил выложить 5 функций, которые пригодятся для работы с Раскладкой Клавиатуры.function NameKeyboardLayout(layout : LongWord) : string; - Получает название раскладки из списка (для удобства сделал :)))function GetActiveKbdLayout : LongWord; - Получает раскладку в своей программеfunction GetActiveKbdLayoutWnd : LongWord; - Получает раскладку в активном окнеprocedure SetKbdLayout(kbLayout : LongWord); - Устанавливает раскладку в своей программеprocedure SetLayoutActiveWnd(kbLayout : LongWord); - Устанавливает раскладку в активном окне
