计算机二级delphi检测计算机是否连网计算机二级考试

文章作者 100test 发表时间 2009:05:22 12:00:44
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库。
　　闲来无事，突发奇想写个程序实现检测电脑是不是连网了，实现起来也不是很困难，看下面我用delphi实现连网检测。
　　//功能:检测计算机是否上网
　　//返回值:成功:True 失败:False.
　　//需要引用 uses wininet
　　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.
　　if InternetConnected=true then
　　Edit1.Text:=’your pc is Online now’
　　else
　　begin
　　Edit1.Text:=’your pc is Offline now’.
　　form1.Close.
　　end.

　　特别推荐：

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总