GetKeyboardLayoutName Function
Материал из GedeminWiki
Возвращает имя текущей раскладки клавиатуры. Подробное описание на сайте MSDN.
Пример использования:
Dim S WinAPI.GetKeyboardLayoutName S MsgBox S