TActlKeyMacro = packed record Command: Integer; Reserved: packed array[0..2] of DWORD; end; PActlKeyMacro = ^TActlKeyMacro;