好贷网好贷款

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

发布时间:2016-12-3 17:45:13 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"用Delphi实现程序检测计算机是否连网",主要涉及到用Delphi实现程序检测计算机是否连网方面的内容,对于用Delphi实现程序检测计算机是否连网感兴趣的同学可以参考一下。

用Delphi实现程序检测计算机是否连网  1.首先在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; 第二种判别方式: if InternetCheckConnection(‘http://www.helison.com/‘,1,0)or       InternetCheckConnection(‘http://www.microsoft.com/‘,1,0) then begin //表示连接网络成功 end else  //没有连接上 

上一篇:利用JS应用的Javascript网格插件
下一篇:CSS 鼠标响应事件,鼠标经过CSS,鼠标移动CSS,鼠标点击CSS

相关文章

相关评论