TWMMDISetMenu = packed record
  Msg: Cardinal;
  MenuFrame: HMENU;
  MenuWindow: HMENU;
  Result: Longint;
end;

struct TWMMDISetMenu {
  unsigned Msg;
  HMENU MenuFrame;
  HMENU MenuWindow;
  Longint Result;
};