VB声明
Declare Function GetKeyboardType Lib "user32" Alias "GetKeyboardType" (ByVal nTypeFlag As Long) As Long
说明
了解与正在使用的键盘有关的信息
返回值
Long，零表示出错。 正在装载数据…… 否则返回下述值之一
nTypeFlag=0	1——PC或兼容的83键键盘；2——Olivetti102键键盘；3——AT或兼容84键键盘；4——增强型（IBM）101或102键键盘；5——Nokia1050键盘；6——Nokia9140键盘；7——日文键盘
nTypeFlag=1	任何值，由厂商决定
nTypeFlag=2	1——10个功能键（即 F? 键）；2——12或18个功能键；3——10个功能键；4——12个功能键；5——10个功能键；6——24个功能键；7——由厂商决定
参数表
参数	类型及说明
nTypeFlag	Long，可设为下述值之一
	0——返回键盘类型
	1——返回键盘子类型
	2——返回键盘上的功能键数量