lxpbuaa，这段代码的意思不是很明白

[waiwailao]

lxpbuaa:
你好：
《Delphi精要》一书关于设置挂钩判断按键的一段程序我有点不理解。下面这段程序只为了检测出数字键和字母键而不检测其他键吗？
if (lParam and _KeyPressmask)=0 //delphi帮助好象说应为1表示keydown状态then
begin
ShiftDown:=(GetKeyState($10)and _KeyPressMask)=_keyPressMask;
CapsDown:=(GetKeyState($14) and 1)=1;
if wParam<65 then
begin
if ShiftDown then
C:=Chr(wParam-16)
else
C:=Chr(wParam);//程序到这里只是说明可能是字母0-9吗？

end else
begin
if wParam in [96..105] then
C:=Chr(wParam-48)//为什么wParam in [96..105]要减48呢？我对下面的部分不是很理解。希望你能给点说明。
else if ShiftDown XOR CapsDown then
C:=Chr(wParam)
else
C:=Chr(wParam+32);

[benjiamen]

if wParam in [96..105] then
C:=Chr(wParam-48)//为什么wParam in [96..105]要减48呢？


因为按键是在小键盘中[0..9],所以要减去48然后转成ASCII码就是CHR[48..57]
你可以测试一下就明了.

if ShiftDown XOR CapsDown then
C:=Chr(wParam)
else
C:=Chr(wParam+32);

这条代码是进行异或运算,主要是来判断有没有同时按来SHIFT键和CAPS LOCK 开关键的状态.