TWMDDE_Data = packed record
  Msg: Cardinal;
  PostingApp: HWND;
  PackedVal: Longint;
  Result: Longint;
end;

struct TWMDDE_Data {
  unsigned Msg;
  HWND PostingApp;
  Longint PackedVal;
  Longint Result;
};