Как в Delphi сменить раскладку клавиатуры?

var
RUS: HKL;
begin
rus:=LoadKeyboardLayout('00000419', 0);
ActivateKeyboardLayout(rus,1); // устанавливаем русский язык

rus:=LoadKeyboardLayout('00000409', 0);
ActivateKeyboardLayout(rus,1); // устанавливаем aнгл язык


TopList Rambler's Top100