Переключение раскладки клавиатуры для приложения

Материал из DRKB

Переключение раскладки клавиатуры для приложения[править | править код]

{ **** UBPFD *********** by kladovka.net.ru ****
>> Переключение раскладки клавиатуры для приложения

Зависимости: Windows

Copyright:   Dimka Maslov
Дата:        21 мая 2002 г.
********************************************** }

function ChangeLayout(LANG: Integer): Boolean;
var
  Layouts: array [0..16] of HKL;
  i, Count: Integer;
begin
  Result := False;
  Count := GetKeyboardLayoutList(High(Layouts)+1, Layouts)-1;
  for i := 0 to Count do
    if (LoWord(Layouts[i]) and $FF) = LANG then
      Result := ActivateKeyboardLayout(Layouts[i], 0) <> 0;
end;


Пример использования:


ChangeLayout(LANG_RUSSIAN);
ChangeLayout(LANG_ENGLISH);


Author: Dimka Maslov
Source: kladovka.net.ru
ID: 01531