整样判断是否联网

[flyingzl]

整样判断我这台机子是否连到INTERNET上，我记得有一个API可以判断的，还请接指教

[Jonea]

取注册表值
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\RemoteAccess\Remote Connection
1 在线
0 离线

[shahand]

function long IcmpCloseHandle(long IcmpHandle) library "icmp.dll"
function long IcmpSendEcho (long IcmpHandle,long DestinationAddress,string requestData,integer requestSize,long requestOption,ref ust_icmp_echo_reply replyBuffer,long replySize,long timeout ) library "icmp.dll"
function long IcmpCreateFile() library "icmp.dll"

[flyingzl]

不知能否说详细一点，有源码最好