TWMUIState = packed record
  Msg: Cardinal;
  Action: Word;
  Flags: Word;
  Unused: Longint;
end;

struct TWMUIState {
  unsigned Msg;
  Word Action;
  Word Flags;
  Longint Unused;
};