TWMPaintClipboard = packed record
  Msg: Cardinal;
  Viewer: HWND;
  PaintStruct: THandle;
  Result: Longint;
end;

struct TWMPaintClipboard {
  unsigned Msg;
  HWND Viewer;
  THandle PaintStruct;
  Longint Result;
};