Автор Алексей Королев задал вопрос в разделе Другие языки и технологии
Помогите довести до ума этот код (позаимствовал с форума, часть переделал), но не понимаю что нужно GetKeyboardLayoutName. и получил лучший ответ
Ответ от InStudent.ru[гуру]
У тебя функция GetKeyboardLayoutName записывает уже само название языка: "Russian" или "English". Сразу лепи label4.caption := ln; после вызова функции. Если же хочешь получить именно номер раскладки, то используй функцию GetKeyboardLayout(). См. ссылка
InStudent.ru
Мастер
(1429)
Попробуй так
procedure TForm6.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
var
ln: array [0 .. 255] of char;
i: Integer;
begin
GetKeyboardLayoutName(ln);
Label4.Caption := ln;
end;
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите довести до ума этот код (позаимствовал с форума, часть переделал), но не понимаю что нужно GetKeyboardLayoutName.