TWSAServiceClassInfoW = packed record
  lpServiceClassId: PGUID;
  lpszServiceClassName: PWideChar;
  dwCount: DWORD;
  lpClassInfos: PWSANSClassInfoW;
  end;