TWMSpoolerStatus = packed record
  Msg: Cardinal;
  JobStatus: Longint;
  JobsLeft: Word;
  Unused: Word;
  Result: Longint;
end;

struct TWMSpoolerStatus {
  unsigned Msg;
  Longint JobStatus;
  Word JobsLeft;
  Word Unused;
  Longint Result;
};