做HOOK程序，求几个按键的键值？
function Keyhookresult(wParam: WPARAM): pchar;
begin
case wParam of
$03: result := '[Cancel] ';
$08: result := '[BackSpace] ';
$09: Result := '[Tab] ';
$0C: result := '[Clear] ';
$0D: result := '[Enter] '
·······
end;
end;
求几个按键的键值
-
=
[
]
;
.
\
,
这些按键的值我找不着，谢谢大家
[解决办法]
自己写个东西转换一下就可以了!
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToHex(Ord(Edit1.Text[1]),2));
end;
[解决办法]
$03: result := '[Cancel] ';我键盘没有
$08: result := '[BackSpace] '; 08
$09: Result := '[Tab] '; 09
$0C: result := '[Clear] '; 没有
$0D: result := '[Enter] ' 13
其实就是它的10进制数
