做HOOK程序，求几个按键的键值？解决方法

做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进制数