Как можно установить раскалдку клавы на анг принудительно ?

Что значит принудительно? Как еще можно?

Что ты понимаешь под принудительно?
Можно по-умолчанию

юзай в реестре HKCU\Keyboard Layout

(1) (2)
ну вот смотрите
На компе есть -Англ+русс
У чела по умолчанию стоит рус.
Чел открывает обработку - и при открытии раскладка устанавливаеться на англ

(3)
а пример есть какой ?

Смена раскладки без ведома юзера - моветон.
А так как вариант командой системы исполняй .reg.
Вот пример:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Keyboard Layout]

[HKEY_CURRENT_USER\Keyboard Layout\IMEtoggle]

[HKEY_CURRENT_USER\Keyboard Layout\IMEtoggle\scancode]

[HKEY_CURRENT_USER\Keyboard Layout\Preload]
"1"="00000409"
"2"="00000419"

[HKEY_CURRENT_USER\Keyboard Layout\Substitutes]

[HKEY_CURRENT_USER\Keyboard Layout\Toggle]
"Hotkey"="2"
"Language Hotkey"="2"
"Layout Hotkey"="1"

Для общего развития ознакомся с http://support.microsoft.com/kb/262283/ru

rundll32.exe KEYBOARD, disable :))

(7)
это думаешь работать будет ?

(8) попробуй, узнаешь :))

Смена раскладки:

WSH = СоздатьОбъект("WScript.Shell");
WSH.SendKeys("^(+)");

Установка анг. раскладки:

Wrapper = CreateObject("DynamicWrapper");
Wrapper.Register("USER32.DLL", "ActivateKeyboardLayout", "i=ll", "f=s", "r=l");
Wrapper.Register("USER32.DLL", "LoadKeyboardLayout", "i=sl", "f=s", "r=l");
eng = Wrapper.LoadKeyboardLayout("00000409", 0);
Wrapper.ActivateKeyboardLayout(eng, 0);

(источник: http://www.script-coding.info/dynwrap.html)

+7 ЗапуститьПриложение("rundll32.exe KEYBOARD, disable")

А что свойства клавиатуры уже отменили?

(7) Не работает :)

(13)
неа
грит
Ошибка при загрузк Keyboard
Не найден указанный модуль

(10)
ошибка - грит
Неудачная попытка создания объекта (DynamicWrapper)

(12)
не хотят руками изменять
интересно- чтобы автоматтом англ стоял

(14) а ты DynamicWrapper то скачал, подключил его?

+
HKCU\Keyboard Layout\Toggle\\Hotkey
Смeнa coчeтания клaвиш пepeключения pacклaдки клaвиaтуpы и переключения между языками.
Тип: REGSZ;
Значение: (1 = левый Alt+Shift; 2 = Ctrl+Shift; 3 = отключен)
--------------------------------------------------------------------------------

HKCU\Keyboard Layout\Toggle\\Layout Hotkey
Смeнa coчeтания клaвиш пepeключения pacклaдки клaвиaтуpы.
Тип: REGSZ;
Значение: (1 = Alt слева +Shift; 2 = Ctrl+Shift; 3 = отключен)
--------------------------------------------------------------------------------

HKCU\Keyboard Layout\Toggle\\Language Hotkey
Смeнa coчeтания клaвиш пepeключeния мeжду языкaми ввoдa.
Тип: REGSZ;
Значение: (1 = Alt слева +Shift; 2 = Ctrl+Shift; 3 = отключен)
--------------------------------------------------------------------------------

Языки: (\Keyboard Layout\Preload)
"1", "00000409" ;EN
"2", "00000419" ;RU
"3", "00000422" ;UK

Первые цифры - порядок при циклическом переключении, та, что "1" - дефолт при загрузке профиля.

(14) Ты б хоть на ссылку в (10) жмякнул, почитал...

(10)
спасиб
работает

(18)
извини, что (14)