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