**************************************************************
*Из формы вызываю так:
*=LoadKeyboard('RUS') && Включаем русскую раскладку клавиатуры
*=LoadKeyboard('ENG') && Включаем английскую раскладку клавиатуры
*В главном модуле функция: LoadKeyboard
************************** FUNCTION LoadKeyboard ***********************************
FUNCTION LoadKeyboard
PARAMETERS kod_klav
LOCAL lcLayoutID
DECLARE INTEGER LoadKeyboardLayout IN win32api STRING @, INTEGER
DO CASE
CASE ALLTRIM(kod_klav) == 'ENG'
=CAPSLOCK(.F.)
lcLayoutID = '00000409' && US English Layout
CASE ALLTRIM(kod_klav) == 'RUS'
=CAPSLOCK(.F.)
lcLayoutID = '00000419' && Russian Layout
ENDCASE
LoadKeyboardLayout(@lcLayoutID,1)
CLEAR DLLS
RETURN
ENDFUNC