Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=49835&view=findpost&p=327948 Tue, 30 Mar 2004 17:05:16 +0000 Как переключить раскладку клавиатуры https://forum.sources.ru/index.php?showtopic=49835&view=findpost&p=327948
    Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
     
    ' Переключаем на русский
    Call ActivateKeyboardLayout(68748313, 0)
    ' Переключаем на английский
    Call ActivateKeyboardLayout(67699721, 0)
]]> Dufa Работа с клавиатурой