Программирование на Delphi - обмен опытом / Определение типа клавиатуры

© Зайцев Олег 1998-2004

Покупателям, пришедшим на www.porta.ru по этой ссылке - дополнительная скидка 1%

Статистика

Определение типа клавиатуры

Рекомендую:

Главная страница \ Железо \ Работа с клавиатурой \ Определение типа клавиатуры

Определение типа клавиатуры * *

Тип клавиатуры может быть определен программно при помощи функции API GetKeyboardType:

 function GetKeyboardType(nTypeFlag: Integer): Integer; stdcall;

Параметр nTypeFlag позволяет задать тип возвращаемой информации:

0 - код типа клавиатуры
1 - код разновидности (подтипа) клавиатуры
2 - код количество функциональных клавиш

Расшифровка типов клавиатуры:

Код	Тип клавиатуры
1	IBM PC/XT or compatible (83-key) keyboard
2	Olivetti "ICO" (102-key) keyboard
3	IBM PC/AT (84-key) or similar keyboard
4	IBM enhanced (101- or 102-key) - расширенная клавиатура (с доп. клавишами для Windows)
5	Nokia 1050 and similar keyboards
6	Nokia 9140 and similar keyboards
7	Japanese keyboard

Расшифровка кодов количества функциональных клавиш:

Код	Тип клавиатуры
1	10
2	12 (иногда 18)
3	10
4	12
5	10
6	24
7	Зависит от типа или производителя

Я тестировал работу данной функции на при помощи простейшего кода:

begin
 Memo1.Lines.Add('Код типа клавиатуры =' + IntToStr(GetKeyboardType(0)));
 Memo1.Lines.Add('Код разновидности клавиатуры =' + IntToStr(GetKeyboardType(1)));
 Memo1.Lines.Add('Код количества функциональных клавиш =' + IntToStr(GetKeyboardType(2)));
end;

Для моей клавиатуры BTC 8190A я получил код типа 4 (IBM enhanced), код разновидности 0 и код количества функциональных клавиш 12

© Зайцев Олег, "Программирование на Delphi - обмен опытом" 1999-2004. При использовании любых материалов данного сайта необходимо указывать источник информации. Дата обновления: 22.11.2004. Сайт размещен на хостинге AGAVA - Хостинг от AGAVA.ru