Delphi判断系统是否安装TCP/IP协议
2022-09-12 09:19:04 作者：admin
本文整理自网络，侵删。
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.
猜你喜欢
联络方式：
400-123-789
邮箱：xiachao@163.com
Q Q：12345678
微信公众号 
微信二维码
