{ **** UBPFD *********** by kladovka.net.ru ****
>>
Зависимости: Windows
Автор: Dimka Maslov, <a href="mailto:mainbox@endimus.ru">mainbox@endimus.ru</a>, ICQ:148442121, Санкт-Петербург
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);