WinAPI - как обнаружить затык клавы ?

[Rimantas]

Здраствуйте,

Есть нужда обнаружить какой язык включен в етот момент - "EN", "LT" или "RU" . Нашёл я что WinAPI имеет такую функцию GetKeyboardLayoutNameA . Или здесь другая функции возвращяет ети значения ? Сделал такой метод :

client static str getKeyboardLayout()
{
    DLL         _winApiDLL              = new DLL('USER32');
    DLLFunction _getKeybLayout          = new DLLFunction(_winApiDLL, 'GetKeyboardLayoutNameA' );
    Str         cRet;
    ;
    _getKeybLayout.returns( ExtTypes::Byte );
    _getKeybLayout.arg( ExtTypes::String );

    if ( _getKeybLayout.call( cRet ) )
        return cRet;
    else
        return '';
}

Но пока cRet пустой . Видимо неумею/непонимаю как обращяться с етими функциями . Помогите пожалуйста ...

С уважением, Римантас . Аксапта 3.0

[Rimantas]

Цитата:

Сообщение от Rimantas

Здраствуйте,

Есть нужда обнаружить какой язык включен в етот момент - "EN", "LT" или "RU" . Нашёл я что WinAPI имеет такую функцию GetKeyboardLayoutNameA . Или здесь другая функции возвращяет ети значения ? Сделал такой метод :

client static str getKeyboardLayout()
{
    DLL         _winApiDLL              = new DLL('USER32');
    DLLFunction _getKeybLayout          = new DLLFunction(_winApiDLL, 'GetKeyboardLayoutNameA' );
    Str         cRet;
    ;
    _getKeybLayout.returns( ExtTypes::Byte );
    _getKeybLayout.arg( ExtTypes::String );

    if ( _getKeybLayout.call( cRet ) )
        return cRet;
    else
        return '';
}

Но пока cRet пустой . Видимо неумею/непонимаю как обращяться с етими функциями . Помогите пожалуйста ...

С уважением, Римантас . Аксапта 3.0

Простите , поспешил ... . Нашёл ответ - Текущий язык системы.