December 1, 2005 - WinTask - GetKeyboard

'
' GetKeyboard
'

dim a as unsigned

a = External("user32","GetKeyboardType",0)

Select Case a
case 1
  msgbox("PC/XT or compatible 83-key keyboard",,"GetKeyboard")
case 2
  msgbox("Olivetti 102-key keyboard",,"GetKeyboard")
case 3
  msgbox("AT or compatible 84-key keyboard",,"GetKeyboard")
case 4
  msgbox("Enhanced 101- or 102-key keyboard",,"GetKeyboard")
case 5
  msgbox("PC/XT or compatible 83-key keyboard",,"GetKeyboard")
case 6
  msgbox("Nokia 1050 or similar keyboard",,"GetKeyboard")
case 7
  msgbox("Other Japanese keyboard",,"GetKeyboard")
case else
  msgbox("I just don't know! "+Str$(a),,"GetKeyboard")
endselect

a = External("user32","GetKeyboardType",1)
  msgbox("Keyboard subtype is "+Str$(a),0,"GetKeyboard")

a = External("user32","GetKeyboardType",2)
  msgbox("Keyboard has "+Str$(a)+" function keys",0,"GetKeyboard")