TWMNotifyFormat = packed record
  Msg: Cardinal;
  From: HWND;
  Command: Longint;
  Result: Longint;
end;

struct TWMNotifyFormat {
  unsigned Msg;
  HWND From;
  Longint Command;
  Longint Result;
};