powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как подхватить раскладку установленную в Windows ?
7 сообщений из 7, страница 1 из 1
Как подхватить раскладку установленную в Windows ?
    #32138619
bzum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
При запуске программы раскладка перескакивает в РУС ,как её забирать из системы ?
...
Рейтинг: 0 / 0
Как подхватить раскладку установленную в Windows ?
    #32138636
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
[не активирован]
[не одобрен]
Win32: GetKeyboardLayout/SetKeyboardLayout
...
Рейтинг: 0 / 0
Как подхватить раскладку установленную в Windows ?
    #32138639
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>При запуске программы раскладка перескакивает в РУС

При запуске прога подхватывает раскладку, дефолтовую для операционки. Мож лучше явно переключиться на нужную. Я вот у себя в клиентских прогах явно на русскую переключаюсь.
...
Рейтинг: 0 / 0
Как подхватить раскладку установленную в Windows ?
    #32220838
Vovochka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а можна описать поподробней как это делается.........
...
Рейтинг: 0 / 0
Как подхватить раскладку установленную в Windows ?
    #32221146
Алексей_S
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
var
Layout: array[0.. KL_NAMELENGTH] of char;
...
LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE); //RUS
...
Рейтинг: 0 / 0
Как подхватить раскладку установленную в Windows ?
    #32221437
Vovochka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а я так сделал:

Const kb_lay_uk: Longint = 69338146;
...
ActivateKeyboardLayout(kb_lay_uk,0);
...
Рейтинг: 0 / 0
Как подхватить раскладку установленную в Windows ?
    #32221625
Алексей_S
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
>>Vovochka
>>Const
>>kb_lay_uk: Longint = 69338146;
>>...
>>ActivateKeyboardLayout(kb_lay_uk,0);
----------------------
Странно, а у меня в 2000-ном этот код ничего не делает, если использовать
ActivateKeyboardLayout(HKL_NEXT,0);
то так хотябы переходит на следующую доступную кодировку, а с kb_lay_uk "полная тишина".
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как подхватить раскладку установленную в Windows ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]