计算机二级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月全国计算机等级考试时间及科目预告