Читать книгу Delphi. Трюки и эффекты - Александр Чиртик - Страница 40

Клавиатура является основным средством для ввода информации в компьютер, поэтому не будем обходить стороной и рассмотрим некоторые не так часто используемые или не такие очевидные возможности работы с ней.

Определение информации о клавиатуре

Начнем с небольшого примера, позволяющего определить некоторую информацию о клавиатуре (листинг 3.16). Пример основан на использовании API-функции GetKeyboardType.

Листинг 3.16. Определение информации о клавиатуре

procedure TForm1.FormCreate(Sender: TObject);

begin

//Определяем тип клавиатуры

case GetKeyboardType(0) of

1: txtType.Text := 'PC/XT или совместимая (83 клавиши)';

2: txtType.Text := 'Olivetti «ICO» (102 клавиши)';

3: txtType.Text := 'PC/AT (84 клавиши) или похожая';

4: txtType.Text := 'Расширенная (101 или 102 клавиши)';

5: txtType.Text := 'Nokia 1050 или похожая';

6: txtType.Text := 'Nokia 9140 или похожая';

7: txtType.Text := 'японская';

end;

//Определяем код типа производителя

txtSubtype.Text := IntToStr(GetKeyboardType(1));

//Определяем количество функциональных клавиш

txtKeys.Text := IntToStr(GetKeyboardType(2));

end;

При создании формы происходит заполнение текстовых полей информацией о типе клавиатуры, коде типа, присвоенном производителем, и количестве функциональных клавиш.