怎么判断电脑是否已经拔号上网了？

Question

function isOnline: boolean;
var ConTypes : Integer;
begin
    ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
    if (InternetGetConnectedState(@ConTypes, 0) = False)
     then Result := False
     else Result := True;
end;

Answer 1

哈哈告诉你一个小密决！用socke控件就可以了！
如果ip为0.0.0.0就是不有上网了！加入socke控后[无论是客户端的还是服务端的都没有关系]if client.localip='0.0.0.0' then /*client 为 socke控件*/
 showmessage('老大你没没有上网啊！')
else 
  showmessage（'上网了！哈哈。那么就给我加加分吧！'）;
如果有什么不明白的可以到我的主页上留言
http://www.babysoft.h58.net