TWMAskCBFormatName = packed record
  Msg: Cardinal;
  NameLen: Word;
  Unused: Word;
  FormatName: PChar;
  Result: Longint;
end;

struct TWMAskCBFormatName {
  unsigned Msg;
  Word NameLen;
  Word Unused;
  const char * FormatName;
  Longint Result;
};