TWMActivate = packed record
  Msg: Cardinal;
  Active: Word;
  Minimized: WordBool;
  ActiveWindow: HWND;
  Result: Longint;
end;

struct TWMActivate {
  unsigned Msg;
  Word Active;
  WordBool Minimized;
  HWND ActiveWindow;
  Longint Result;
};