TWMMenuChar = packed record
  Msg: Cardinal;
  User: Char;
  Unused: Byte;
  MenuFlag: Word;
  Menu: HMENU;
  Result: Longint;
end;

struct TWMMenuChar {
  unsigned Msg;
  Char User;
  Byte Unused;
  Word MenuFlag;
  HMENU Menu;
  Longint Result;
};