本文介绍了一个简单的程序片段，用于检查设备是否已连接到指定的互联网地址。通过使用if语句和InternetCheckConnection函数，该代码能够判断当前是否有有效的网络连接，并给出相应的提示。
if InternetCheckConnection('http://192.168.0.5/', 1, 0) then
begin //Dialogs, ComCtrls, StdCtrls, wininet;
showmessage('网络已经连接');
end
else
begin
showmessage('没有网络连接，请拨号登陆internet');
end;
begin //Dialogs, ComCtrls, StdCtrls, wininet;
showmessage('网络已经连接');
end
else
begin
showmessage('没有网络连接，请拨号登陆internet');
end;
扫一扫
704
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
