Encontré esto en internet, puedes probarlo y nos dices si funciona.
Saludos.
API calls for PING:
function long IcmpCloseHandle (long IcmpHandle) library "icmp.dll"
function long IcmpSendEcho ( &
long IcmpHandle, &
long DestinationAddress, &
string requestData, &
integer requestSize , &
&a! mp;n! bsp; long requestOption, &
ref icmp_echo_reply replyBuffer, &
long replySize, &
long timeout ) library "icmp.dll"
function long IcmpCreateFile() library "icmp.dll"
function long GetLastError() library "kernel32.dll"
function long inet_addr(ref string addr) library "wsock32.dll"
Usage:
long lret
long address
address = inet_addr(sle_addr.text) //123.123.123.1
if address <> -1 then
lret = p.high_ping(address, msg)
st_msg.text = msg
st_result.text = string(lret)
else
st_result.text = string(address)
end if
destroy p