Die Konstante sind doch alle in System.UITypes definiert:
Delphi-Quellcode:
vkSnapshot = $2C;
{ 44 }
vkInsert = $2D;
{ 45 }
vkDelete = $2E;
{ 46 }
vkHelp = $2F;
{ 47 }
{ vk0 thru vk9 are the same as ASCII '0' thru '9' ($30 - $39) }
vk0 = $30;
{ 48 }
vk1 = $31;
{ 49 }
vk2 = $32;
{ 50 }
vk3 = $33;
{ 51 }
vk4 = $34;
{ 52 }
vk5 = $35;
{ 53 }
vk6 = $36;
{ 54 }
vk7 = $37;
{ 55 }
vk8 = $38;
{ 56 }
vk9 = $39;
{ 57 }
vkLCommand = $3D;
{ 61 }
vkRCommand = $3E;
{ 62 }
vkFunction = $3F;
{ 63 }
{ vkA thru vkZ are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
vkA = $41;
{ 65 }
vkB = $42;
{ 66 }
vkC = $43;
{ 67 }
vkD = $44;
{ 68 }
vkE = $45;
{ 69 }
vkF = $46;
{ 70 }
vkG = $47;
{ 71 }
vkH = $48;
{ 72 }
vkI = $49;
{ 73 }
vkJ = $4A;
{ 74 }
vkK = $4B;
{ 75 }
vkL = $4C;
{ 76 }
vkM = $4D;
{ 77 }
vkN = $4E;
{ 78 }
vkO = $4F;
{ 79 }
vkP = $50;
{ 80 }
vkQ = $51;
{ 81 }
vkR = $52;
{ 82 }
vkS = $53;
{ 83 }
vkT = $54;
{ 84 }
vkU = $55;
{ 85 }
vkV = $56;
{ 86 }
vkW = $57;
{ 87 }
vkX = $58;
{ 88 }
vkY = $59;
{ 89 }
vkZ = $5A;
{ 90 }
vkLWin = $5B;
{ 91 }
vkRWin = $5C;
{ 92 }
vkApps = $5D;
{ 93 }