Переключение раскладки клавиатуры для приложения
Материал из 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