Delphi - база знаний


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


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




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;



Начало  Назад  Вперед



Книжный магазин