Delphi判断系统是否安装TCP/IP协议


function jTCP:Boolean;
var
wd : TWSAData;
begin
Result := true;
case WSAStartup(MakeWord(2,0),wd) of
WSAEINVAL,WSASYSNOTREADY,WSAVERNOTSUPPORTED:Result := False;
else
WSACleanup;
end;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
if jTCP then
ShowMessage('已安装')
else
ShowMessage('没有安装');
end;

end.

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678