Как программно сменить раскладку клавиатуры

@DDim1000 · Регистрация: 17.12.2011

Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста, как сменить раскладку клавиатуры на английскую, если в системе установлено три более языка?

Вот эта штука почему-то не работает:
ActivateKeyboardLayout(0,HKL_NEXT);

@Mawrat · 26.11.2013, 21:27

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses
  Windows;
 
//Переключение на русскую раскладку.
procedure TForm1.Button1Click(Sender: TObject);
begin  
  LoadKeyboardLayout('00000419', KLF_ACTIVATE);
end;
 
//Переключение на английскую раскладку.
procedure TForm1.Button2Click(Sender: TObject);
begin  
  LoadKeyboardLayout('00000409', KLF_ACTIVATE);
end;

@DDim1000 · 26.11.2013, 21:51 **[ТС]**

Сообщение от Mawrat

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses
  Windows;
 
//Переключение на русскую раскладку.
procedure TForm1.Button1Click(Sender: TObject);
begin  
  LoadKeyboardLayout('00000419', KLF_ACTIVATE);
end;
 
//Переключение на английскую раскладку.
procedure TForm1.Button2Click(Sender: TObject);
begin  
  LoadKeyboardLayout('00000409', KLF_ACTIVATE);
end;

Не работает.

@Mawrat · 26.11.2013, 22:05

У меня этот код правильно отрабатывает. Я проверял в Win XP x86 SP3 RU.

Добавлено через 10 минут
----------
Приложил архив с проектом.

@DDim1000 · 26.11.2013, 22:05 **[ТС]**

Сообщение от Mawrat

У меня этот код правильно отрабатывает. Я проверял в Win XP x86 SP3 RU.

А у меня Windows 7 86x SP1.

А вот на русский прекрасно переключает.
LoadKeyboardLayout('00000419', KLF_ACTIVATE);

@Mawrat · 26.11.2013, 22:11

Надо проверить строку: '00000409'. Она должна быть точно так записана. Проверить количество цифр, нет ли подмен нулей на букву "O".

Добавлено через 57 секунд
Ещё для проверки предлагаю запустить программу из архива, который я приложил. Можно также код взять из того проекта "как есть".

@DDim1000 · 26.11.2013, 22:16 **[ТС]**

Сообщение от Mawrat

----------
Приложил архив с проектом.

Тоже не работает.

Добавлено через 4 минуты
Странно, на русскую переключает, а на английскую не хочет...

@Mawrat · 26.11.2013, 22:19

DDim1000, тогда добавь в программу ещё одну кнопку и такой код:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button3Click(Sender: TObject);
var
  S : String;
begin
  SetLength(S, KL_NAMELENGTH);
  if GetKeyboardLayoutName(PChar(S)) then
    ShowMessage('Раскладка: ' + S)
  else
    ShowMessage('Не удалось определить раскладку.');
end;

Потом запусти программу, вручную переключись в её окне на английскую раскладку и выполни код. Какая строка будет выведена в сообщении?

@DDim1000 · 26.11.2013, 22:35 **[ТС]**

Сообщение от Mawrat

DDim1000, тогда добавь в программу ещё одну кнопку и такой код:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button3Click(Sender: TObject);
var
  S : String;
begin
  SetLength(S, KL_NAMELENGTH);
  if GetKeyboardLayoutName(PChar(S)) then
    ShowMessage('Раскладка: ' + S)
  else
    ShowMessage('Не удалось определить раскладку.');
end;

Потом запусти программу, вручную переключись в её окне на английскую раскладку и выполни код. Какая строка будет выведена в сообщении?

Вот эта строка выполняется: ShowMessage('Раскладка: ' + S)
Раскладка: 00000409

@Mawrat · 26.11.2013, 22:35

Ну как? Что получилось?

@alfikss · 26.11.2013, 22:36

Русиш

Delphi
1
LoadKeyboardLayout('00000419', 1);

Инглиш

Delphi
1
LoadKeyboardLayout('00000409', 1);

@Mawrat · 26.11.2013, 22:37

Вот именно этот код, который показан в соощении - '00000409' надо использовать при переключении на английскую раскладку. Если это не пройдёт, то тогда пока не ясно, почему не работает...

@alfikss · 26.11.2013, 22:38

Либо, если надо по-очереди менять то

Delphi
1
2
3
4
5
var
hk:HKL;
begin
hk := LoadKeyboardLayout(0, 0);
ActivateKeyboardLayout(hk, 0);

@Mawrat · 26.11.2013, 23:05

Мне сейчас придётся отлучиться. Проблемы с электричеством.

Добавлено через 23 минуты
alfikss, получилось переключить на английскую раскладку? Если переключение не происходит, можно попробовать определить код ошибки:

Delphi
1
2
3
4
5
6
7
8
9
//Переключение на английскую раскладку.
procedure TForm1.Button2Click(Sender: TObject);
var
  ErrCode : Cardinal;
begin  
  LoadKeyboardLayout('00000409', KLF_ACTIVATE);
  ErrCode := GetLastError;
  ShowMessage('Код ошибки: ' + IntToStr(ErrCode) + #13#10'Сообщение: ' + SysErrorMessage(ErrCode));
end;

@DDim1000 · 26.11.2013, 23:09 **[ТС]**

Сообщение от Mawrat

DDim1000, тогда добавь в программу ещё одну кнопку и такой код:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button3Click(Sender: TObject);
var
  S : String;
begin
  SetLength(S, KL_NAMELENGTH);
  if GetKeyboardLayoutName(PChar(S)) then
    ShowMessage('Раскладка: ' + S)
  else
    ShowMessage('Не удалось определить раскладку.');
end;

Потом запусти программу, вручную переключись в её окне на английскую раскладку и выполни код. Какая строка будет выведена в сообщении?

Странно, раскладка меняется, только буквы внизу, RU на EN, не меняются.
То есть, я нажимаю "Переключить на русский" и потом нажимаю "Проверить раскладку"(Batton3), также с и с английским - и каждый раз цифры разные, т.е. переключение происходит, только почему-то не заметно для пользователя.

@alfikss · 26.11.2013, 23:14

Я же написал

Сообщение от alfikss

Русиш

Delphi
1
LoadKeyboardLayout('00000419', 1);

Инглиш

Delphi
1
LoadKeyboardLayout('00000409', 1);

У меня все меняется на Русский/Английский, и RU на EN и обратно все меняется.

@DDim1000 · 26.11.2013, 23:20 **[ТС]**

Сообщение от alfikss

Я же написал

У меня все меняется на Русский/Английский, и RU на EN и обратно все меняется.

а у меня НЕ меняется...

Добавлено через 1 минуту

Сообщение от Mawrat

Мне сейчас придётся отлучиться. Проблемы с электричеством.

Добавлено через 23 минуты
alfikss, получилось переключить на английскую раскладку? Если переключение не происходит, можно попробовать определить код ошибки:

Delphi
1
2
3
4
5
6
7
8
9
//Переключение на английскую раскладку.
procedure TForm1.Button2Click(Sender: TObject);
var
  ErrCode : Cardinal;
begin  
  LoadKeyboardLayout('00000409', KLF_ACTIVATE);
  ErrCode := GetLastError;
  ShowMessage('Код ошибки: ' + IntToStr(ErrCode) + #13#10'Сообщение: ' + SysErrorMessage(ErrCode));
end;

Код ошибки: 0
Сообщение: Операция успешно завершена.

@alfikss · 26.11.2013, 23:23

Только что специально запустил второй комп, что бы проверить. Все работает. И на Win7 и на WinXP SP3

@alfikss · 26.11.2013, 23:28

Просто скачай и запусти. Мне даже интересно стало.

Комментарий модератора

Вирус во вложении удалён. Проект перекомпилирован. Теперь вложение полностью безопасно.

@Mawrat · 26.11.2013, 23:36

alfikss, EXE заражен вирусом. Надо пролечить комп.

Сообщение от alfikss

Просто скачай и запусти. Мне даже интересно стало.

Исходный EXE я удалил (потому что там вирус, как я уже говорил). Я перекомпилировал проект и запустил - всё отработало правильно.

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@DDim1000 -46 / 3 / 0 Регистрация: 17.12.2011 Сообщений: 610

	Как программно сменить раскладку клавиатуры 26.11.2013, 20:59. Показов 40209. Ответов 47 Метки нет (Все метки) Подскажите пожалуйста, как сменить раскладку клавиатуры на английскую, если в системе установлено три более языка? Вот эта штука почему-то не работает: ActivateKeyboardLayout(0,HKL_NEXT); 0

@Mawrat 13117 / 5898 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	26.11.2013, 22:11
	Надо проверить строку: '00000409'. Она должна быть точно так записана. Проверить количество цифр, нет ли подмен нулей на букву "O". Добавлено через 57 секунд Ещё для проверки предлагаю запустить программу из архива, который я приложил. Можно также код взять из того проекта "как есть". 0

@Mawrat 13117 / 5898 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	26.11.2013, 22:35
	Ну как? Что получилось? 0

@Mawrat 13117 / 5898 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	26.11.2013, 22:37
	Вот именно этот код, который показан в соощении - '00000409' надо использовать при переключении на английскую раскладку. Если это не пройдёт, то тогда пока не ясно, почему не работает... 0

@alfikss 12 / 12 / 3 Регистрация: 07.05.2013 Сообщений: 139
	26.11.2013, 23:23
	Только что специально запустил второй комп, что бы проверить. Все работает. И на Win7 и на WinXP SP3 0