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

发布时间:2017-3-28 19:53:52 编辑: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

相关文章

相关评论

本站评论功能暂时取消,后续此功能例行通知。

一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播不法有害信息!

二、互相尊重,对自己的言论和行为负责。

好贷网好贷款