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.
 

相关阅读 >>

Delphi 字符串前后翻转

Delphi 如何设置热键

Delphi多线程tthread详解

Delphi中用idhttp获取json数据乱码问题

Delphi 从paintbox拷贝一部分内容到tbitmap

Delphi tms web core tedit编辑输入框属性展示

Delphi 获取所有磁盘分区另类方法

Delphi与sqlite3数据库

Delphi利用scrollbox实现图像漫游

Delphi rest/post

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi判断系统是否安装TCP/IP协议