【Delphi-网络通信】Delphi 检测网络状态

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

shaoboyy

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

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi-网络通信文章标签：网络 delphi internet types

本文链接：https://blog.youkuaiyun.com/shaoboyy/article/details/3344752

Delphi-网络通信专栏收录该内容

0 篇文章

订阅专栏

本文介绍了一个简单的程序，用于检测计算机是否连接到互联网，并能够判断连接类型，如调制解调器连接、局域网连接或代理连接。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TfrmMain.btnCheckClick(Sender: TObject);
var
   Types : Integer;
begin
   Types := INTERNET_CONNECTION_MODEM +
            INTERNET_CONNECTION_LAN +
            INTERNET_CONNECTION_PROXY;
   //检查三种网络状况 
    if InternetGetConnectedState(@types, 0) then
       edtStatus.Text := '你的电脑已与网络连接'
    else
       edtStatus.Text := '你的电脑未与网络连接';
end;