用Delphi实现程序检测计算机是否连网

最新推荐文章于 2020-11-29 13:42:40 发布

rr126

最新推荐文章于 2020-11-29 13:42:40 发布

阅读量718

点赞数

本文链接：https://blog.csdn.net/rr126/article/details/2178947

版权

这篇博客介绍了如何在Delphi程序中实现检测计算机是否连接到网络的功能。通过引用wininet库，定义常量并编写InternetConnected函数，可以检查各种网络连接类型。在主程序中调用该函数，根据返回值显示相应的消息框告知用户网络状态。

摘要由CSDN通过智能技术生成

.首先在Uses中引用 wininet
2.写一个函数进行检测．代码如下：
{//功能:检测计算机是否上网
//返回值:成功:True 失败:False;
}
function InternetConnected:Boolean;StdCall;
const
INTERNET_CONNECTION_MODEM=1;
INTERNET_CONNECTION_LAN=2;
INTERNET_CONNECTION_PROXY=4;
INTERNET_CONNECTION_MODEM_BUSY=8;
var
dwConnectionTypes:DWORD;
begin
dwConnectionTypes:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
Result:=InternetGetConnectedState(@dwConnectionTypes,0);
end;
3.可以在你程序中调用进行检测．如：
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetConnected=true then
Application.MessageBox(PChar('网络连接成功'),PChar('系统提示'),MB_OK+MB_ICONINFORMATION)
else
begin
Application.MessageBox(PChar('网络没有连接上.请检测'),PChar('系统提示'),MB_OK+MB_ICONINFORMATION);
end;
end;