TWSANSClassInfoA = packed record
  lpszName: PChar;
  dwNameSpace: DWORD;
  dwValueType: DWORD;
  dwValueSize: DWORD;
  lpValue: Pointer;
  end;