如何用delphi测试一个IP地址是否ping得通（其中还要加路由）

Question

//下面是从msdn靠过来的，C的格式莫怪，都在'icmp.dll'里面
HANDLE WINAPI IcmpCreateFile (VOID);{stdcall extern 'ICMP.DLL' //其它也是呢}
DWORD WINAPI IcmpSendEcho (HANDLE IcmpHandle 
IPAddr DestinationAddress LPVOID RequestData WORD RequestSize PIP_OPTION_INFORMATION RequestOptions LPVOID ReplyBuffer DWORDReplySize DWORD Timeout); //这就是传说中的ping了
BOOL WINAPI IcmpCloseHandle (HANDLE IcmpHandle); //别忘了这个把

Answer 1

这样的Source Code，CSDN里面就有。如果你懒得找，我也可以给你一个。

Answer 2

再楼上的基础上加上一点：到网上down一个ping控件。

Answer 3

Bill_lasker兄，ping控件哪边有得下载！