опрос клавиатуры пуелунищфквыефеу

:= IntToStr(GetKeyboardType(2));

функциональных клавиш

P //Определяем количество

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

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

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

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

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

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

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

TForm1.FormCreate(Sender: TObject);

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

(листинг 3.16). Пример основан на использовании API-функции

с небольшого примера, позволяющего определить некоторую информацию о клавиатуре

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

возможности работы с ней.

стороной и рассмотрим некоторые не так часто используемые или не такие очевидные

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

Клавиатура является

Delphi. Трюки и эффекты (+CD)