TWMInitDialog = packed record
  Msg: Cardinal;
  Focus: HWND;
  InitParam: Longint;
  Result: Longint;
end;

struct TWMInitDialog {
  unsigned Msg;
  HWND Focus;
  Longint InitParam;
  Longint Result;
};