TWMMDICreate = packed record
  Msg: Cardinal;
  Unused: Integer;
  MDICreateStruct: PMDICreateStruct;
  Result: Longint;
end;

struct TWMMDICreate {
  unsigned Msg;
  int Unused;
  PMDICreateStruct MDICreateStruct;
  Longint Result;
};