А>Поднимаю тему вверх, т.к. не могу найти решения. Облазил уже многое.
А>Люди добрые, ну хоть совет дайте какой-нить, не могу из консоли узнать
А>какая раскладка активная, RU или EN???

char keybd[KL_NAMELENGTH];
GetKeyboardLayoutName(keybd);
switch(atoi(keybd))
{
case 409:
lblLang->Caption = "EN"; // английский
break;
case 419:
lblLang->Caption = "RU"; // русский
break;
}