首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

高难度有关问题,怎样检测本机键盘为USB键盘还是圆口键盘

2012-03-19 
高难度问题,怎样检测本机键盘为USB键盘还是圆口键盘?如题哦。[解决办法]D 的例子case getkeyboardtype(0) o

高难度问题,怎样检测本机键盘为USB键盘还是圆口键盘?
如题哦。

[解决办法]
D 的例子

case getkeyboardtype(0) of file://获取键盘类型
1: buffer:= ' 键盘: IBM PC/XT或兼容类型(83键) ';
2: buffer:= ' 键盘: Olivetti "ICO "(102键) ';
3: buffer:= ' 键盘: IBM PC/AT(84键) ';
4: buffer:= ' 键盘: IBM增强型(101或102键) ';
5: buffer:= ' 键盘: Nokia 1050 ';
6: buffer:= ' 键盘: Nokia 9140 ';
7: buffer:= ' 键盘: Japanese ';
end;
memo1.lines.add(buffer);

file://获取键盘功能键数目
memo1.lines.add( ' 功能键数目: '+inttostr(getkeyboardtype(2)));


热点排行