Как переключить раскладку клавиатуры

[Daido]

Как правильно переключить раскладку клавиатуры ? с рус на англ или наоборот...

[Lucky13]

См. ф-цию LoadKeyboardLayout в MSDN

[belugin]

Раскладка и Аксапта - DAX: Программирование - AXForum

[Daido]

client static void loadKeyboardLayout(MyFunctionKeyboardLayout bkl)
{
    DLL _dll = new DLL(#UserDLL);
    DLLFunction _keyboardLayout = new DLLFunction(_dll, #UserDLL_LOADKEYBOARDLAYOUT);
    ;
    _keyboardLayout.arg(ExtTypes::String, ExtTypes::DWord);
    switch(bkl)
    {
    case MyFunctionKeyboardLayout::en:
    _keyboardLayout.call('00000409' ,#KLF_ACTIVATE); //en
    break;
    case MyFunctionKeyboardLayout::ru:
    _keyboardLayout.call('00000419' ,#KLF_ACTIVATE); //ru
    break;
    }
    sleep(1000);
}

,
но не всегда срабатывает WinApi тупит? или что то не так?

[e@gle]

client static boolean setRUKeyboardLayout()
{
    #define.LANG_RUSSIAN("00000419")

    DLL         _winApiDLL      = new DLL('USER32');
    DLLFunction _loadKL         = new DLLFunction(_winApiDLL, "LoadKeyboardLayoutA");
    DLLFunction _activeKL       = new DLLFunction(_winApiDLL, "ActivateKeyboardLayout");
    Binary      bStr            = new Binary(10);
    ;

    bStr.string(#Offset0, #LANG_RUSSIAN);

    _loadKL.returns(ExtTypes::DWord);
    _loadKL.arg(ExtTypes::Pointer, ExtTypes::Word);

    _activeKL.returns(ExtTypes::DWord);
    _activeKL.arg(ExtTypes::DWord, ExtTypes::Word);

    if(_activeKL.call(_loadKL.call(bStr, 0), 0)) return true;
    else return false;

} // LoadKeyboardLayout

[Daido]

Цитата:

Сообщение от e@gle

client static boolean setRUKeyboardLayout()
{
    #define.LANG_RUSSIAN("00000419")

    DLL         _winApiDLL      = new DLL('USER32');
    DLLFunction _loadKL         = new DLLFunction(_winApiDLL, "LoadKeyboardLayoutA");
    DLLFunction _activeKL       = new DLLFunction(_winApiDLL, "ActivateKeyboardLayout");
    Binary      bStr            = new Binary(10);
    ;

    bStr.string(#Offset0, #LANG_RUSSIAN);

    _loadKL.returns(ExtTypes::DWord);
    _loadKL.arg(ExtTypes::Pointer, ExtTypes::Word);

    _activeKL.returns(ExtTypes::DWord);
    _activeKL.arg(ExtTypes::DWord, ExtTypes::Word);

    if(_activeKL.call(_loadKL.call(bStr, 0), 0)) return true;
    else return false;

} // LoadKeyboardLayout

на сколько понимаю тут только на русскии переключает ???

[e@gle]

Цитата:

на сколько понимаю тут только на русскии переключает ???

Да.
Я думаю несложно дописать и на англ. Используя исходный текст loadKeyboardLayout(...)

[Daido]

Цитата:

Сообщение от e@gle

Да.
Я думаю несложно дописать и на англ. Используя исходный текст loadKeyboardLayout(...)

ну да

[pedrozzz]

В 2009 можно при помощи .Net API:

static void changeKeybordLayout(Args _args)
{
    #IsoCountryRegionCodes

    System.Windows.Forms.InputLanguage  tempLanguage = System.Windows.Forms.InputLanguage::get_CurrentInputLanguage();
    System.Windows.Forms.InputLanguage  ruLanguage   = System.Windows.Forms.InputLanguage::FromCulture(New System.Globalization.CultureInfo(#isoRU));
    ;
    
    System.Windows.Forms.InputLanguage::set_CurrentInputLanguage(ruLanguage);
    //теперь раскладка русская
    //..
    //восстанавливаем исходную раскладку
    System.Windows.Forms.InputLanguage::set_CurrentInputLanguage(tempLanguage);
}