TWSAServiceClassInfoA = packed record
  lpServiceClassId: PGUID;
  lpszServiceClassName: PChar;
  dwCount: DWORD;
  lpClassInfos: PWSANSClassInfoA;
  end;