TWMActivateApp = packed record
  Msg: Cardinal;
  Active: BOOL;
  ThreadId: Longint;
  Result: Longint;
end;

struct TWMActivateApp {
  unsigned Msg;
  BOOL Active;
  Longint ThreadId;
  Longint Result;
};