1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
| function keytostr (key: word): string;
function wordtostr(const Value: Word): String;
begin
SetLength(Result, SizeOf(Value));
Move(Value, Result[1], SizeOf(Value));
end;
begin
case key of
VK_LBUTTON:result:='VK_LBUTTON';
VK_RBUTTON:result:='VK_RBUTTON';
VK_CANCEL:result:='VK_CANCEL';
VK_MBUTTON:result:='VK_MBUTTON';
VK_BACK:result:='VK_BACK';
VK_TAB:result:='VK_TAB';
VK_CLEAR:result:='VK_CLEAR';
VK_RETURN:result:='VK_RETURN';
VK_SHIFT:result:='VK_SHIFT';
VK_CONTROL:result:='VK_CONTROL';
VK_MENU:result:='VK_MENU';
VK_PAUSE:result:='VK_PAUSE';
VK_CAPITAL:result:='VK_CAPITAL';
VK_ESCAPE:result:='VK_ESCAPE';
VK_SPACE:result:='VK_SPACE';
VK_PRIOR:result:='VK_PRIOR';
VK_NEXT:result:='VK_NEXT';
VK_END:result:='VK_END';
VK_HOME:result:='VK_HOME';
VK_LEFT:result:='VK_LEFT';
VK_UP:result:='VK_UP';
VK_RIGHT:result:='VK_RIGHT';
VK_DOWN:result:='VK_DOWN';
VK_SELECT:result:='VK_SELECT';
VK_PRINT:result:='VK_PRINT';
VK_EXECUTE:result:='VK_EXECUTE';
VK_SNAPSHOT:result:='VK_SNAPSHOT';
VK_INSERT:result:='VK_INSERT';
VK_DELETE:result:='VK_DELETE';
VK_HELP:result:='VK_HELP';
VK_LWIN:result:='VK_LWIN';
VK_RWIN:result:='VK_RWIN';
VK_APPS:result:='VK_APPS';
VK_NUMPAD0:result:='VK_NUMPAD0';
VK_NUMPAD1:result:='VK_NUMPAD1';
VK_NUMPAD2:result:='VK_NUMPAD2';
VK_NUMPAD3:result:='VK_NUMPAD3';
VK_NUMPAD4:result:='VK_NUMPAD4';
VK_NUMPAD5:result:='VK_NUMPAD5';
VK_NUMPAD6:result:='VK_NUMPAD6';
VK_NUMPAD7:result:='VK_NUMPAD7';
VK_NUMPAD8:result:='VK_NUMPAD8';
VK_NUMPAD9:result:='VK_NUMPAD9';
VK_MULTIPLY:result:='VK_MULTIPLY';
VK_ADD:result:='VK_ADD';
VK_SEPARATOR:result:='VK_SEPARATOR';
VK_SUBTRACT:result:='VK_SUBTRACT';
VK_DECIMAL:result:='VK_DECIMAL';
VK_DIVIDE:result:='VK_DIVIDE';
VK_F1:result:='VK_F1';
VK_F2:result:='VK_F2';
VK_F3:result:='VK_F3';
VK_F4:result:='VK_F4';
VK_F5:result:='VK_F5';
VK_F6:result:='VK_F6';
VK_F7:result:='VK_F7';
VK_F8:result:='VK_F8';
VK_F9:result:='VK_F9';
VK_F10:result:='VK_F10';
VK_F11:result:='VK_F11';
VK_F12:result:='VK_F12';
VK_F13:result:='VK_F13';
VK_F14:result:='VK_F14';
VK_F15:result:='VK_F15';
VK_F16:result:='VK_F16';
VK_F17:result:='VK_F17';
VK_F18:result:='VK_F18';
VK_F19:result:='VK_F19';
VK_F20:result:='VK_F20';
VK_F21:result:='VK_F21';
VK_F22:result:='VK_F22';
VK_F23:result:='VK_F23';
VK_F24:result:='VK_F24';
VK_NUMLOCK:result:='VK_NUMLOCK';
VK_SCROLL:result:='VK_SCROLL';
VK_PROCESSKEY:result:='VK_PROCESSKEY';
VK_CRSEL:result:='VK_CRSEL';
VK_EXSEL:result:='VK_EXSEL';
VK_EREOF:result:='VK_EREOF';
VK_PLAY:result:='VK_PLAY';
VK_ZOOM:result:='VK_ZOOM';
VK_NONAME:result:='VK_NONAME';
VK_PA1:result:='VK_PA1';
VK_OEM_CLEAR:result:='VK_OEM_CLEAR';
else
result:=wordtostr(key);
end;
end; |