var
WSAData: TWSAData;
begin
try
WSAStartup($101, WSAData); //$202
Memo1.Lines.Add('请求版本 ： ' + IntToHex(WSAData.wVersion, 3));
Memo1.Lines.Add('支持Socket 数 ： ' + IntToStr(WSAData.iMaxSockets));
Memo1.Lines.Add('UDP 数据包大小 ： '+ IntToStr(WSAData.iMaxUdpDg));
Memo1.Lines.Add('Socket 厂商信息： '+ String(WSAData.lpVendorInfo));
Memo1.Lines.Add('Socket 说明信息： '+ WSAData.szDescription);
Memo1.Lines.Add('Socket 状态 ： '+ WSAData.szSystemStatus);
Memo1.Lines.Add('Socket 实际版本： '+ IntToHex(WSAData.wHighVersion, 3));
finally
WSACleanup;
end;
