Получение типа клавиатуры

Delphi , ОС и Железо , Клавиши

Code:

function GettingKeybType: string;  //Win95 or later and NT3.1 or later

        var

        Flag:    integer;

        begin

        Flag:=0;

        Case GetKeyboardType(Flag) of

            1:  Result:='IBM PC/XT or compatible (83-key)  keyboard';

            2:  Result:='Olivetti "ICO" (102-key)  keyboard';

            3:  Result:='IBM PC/AT (84-key) or similar  keyboard';

            4:  Result:='IBM enhanced (101- or 102-key)  keyboard';

            5:  Result:='Nokia 1050 and similar  keyboards';

            6:  Result:='Nokia 9140 and similar  keyboards';

            7:  Result:='Japanese keyboard';

        end;

        end;

Программный код на Delphi, который определяет тип подключенной к компьютеру клавиатуры. Функция GettingKeybType использует функцию GetKeyboardType из Windows API, которая возвращает целочисленное значение, представляющее собой тип клавиатуры.

Затем функция использует оператор switch для маппинга этих целочисленных значений к конкретным типам клавиатур. Например, если возвращаемое значение равно 1, это указывает на то, что клавиатура является IBM PC/XT или совместимой (83-кнопочной) клавиатурой.

Вот пример использования этого кода:

var
  KeybType: string;

KeybType := GettingKeybType;
ShowMessage(KeybType);

В этом примере, когда вы запустите программу, она покажет сообщение с типом подключенной к вашему компьютеру клавиатуры.

Обратите внимание, что функция GetKeyboardType доступна только на операционных системах Windows 95 или позднее и NT3.1 или позднее. Если вы используете более раннюю версию Windows, этот код не будет работать.

Также отметьте, что список поддерживаемых клавиатур в этом коде может не быть полным, поскольку existed many different types of keyboards during the time period when this function was available.

Получение типа клавиатуры - функция, которая определяет тип используемой клавиатуры на компьютере, возвращая строку с описанием соответствующего типа.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Клавиши ::

Время компиляции файла: 2024-12-22 20:14:06
2025-01-29 01:34:56/0.0030701160430908/0