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

最新推荐文章于 2026-06-22 22:05:57 发布

原创最新推荐文章于 2026-06-22 22:05:57 发布 · 920 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi #internet #function #网络

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

.首先在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;