tagTYPEATTR

type tagTYPEATTR = packed record

  GUID: TGUID;

  lcid: LongWord;

  dwReserved: LongWord;

  memidConstructor: Integer;

  memidDestructor: Integer;

  lpstrSchema: PWideChar;

  cbSizeInstance: LongWord;

  typekind: tagTYPEKIND;

  cFuncs: Word;

  cVars: Word;

  cImplTypes: Word;

  cbSizeVft: Word;

  cbAlignment: Word;

  wTypeFlags: Word;

  wMajorVerNum: Word;

  wMinorVerNum: Word;

  tdescAlias: tagTYPEDESC;

  idldescType: tagIDLDESC;

end;