type TWMHotKey = packed record Msg: Cardinal; HotKey: Longint; Unused: Longint; Result: Longint; end;