• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Delphi Список установленных раскладок клавиатуры

Sascha Оффлайн

Sascha

Заместитель Администратора
Команда форума
Администратор
Сообщения
1,058
Симпатии
273
Баллы
155
Код:
procedure GetKLList(List: TStrings);
 var
 AList : array [0..9] of Hkl;
 AklName: array [0..255] of Char;
 i: Longint;
 begin
 List.Clear;
 for i := 0 to GetKeyboardLayoutList(SizeOf(AList), AList) - 1 do
 begin
 GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName));
 List.AddObject(AklName, Pointer(AList[i]));
 end;
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
 GetKLList(ListBox1.Items);
 end;

 procedure TForm1.ListBox1Click(Sender: TObject);
 begin
 with Sender as TListBox do
 ActivateKeyboardLayout(Hkl(Items.Objects[ItemIndex]), 0);
 end;
 
Вверх Снизу