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 и FreePascal.
