做HOOK程序，求几个按键的键值？

[jadesun]

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;


求几个按键的键值

-
=
[
]
;
.
\
,

这些按键的值我找不着，谢谢大家

[chenzhuo]

- $2D
= $3D
[ $5B
] $5D
; $3B
. $2E
\ $5C
, $2C

[chenzhuo]

自己写个东西转换一下就可以了!
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToHex(Ord(Edit1.Text[1]),2));
end;

[brightyang]

$03: result := '[Cancel]'; 我键盘没有
$08: result := '[BackSpace]'; 08
$09: Result := '[Tab]'; 09
$0C: result := '[Clear]'; 没有
$0D: result := '[Enter]' 13
其实就是它的10进制数

[kye_jufei]

esc 27
backspace 8
tab 9
delete 46
enter 13