delphi下的ping

一个供应程序调用的PING函数接口： function ping(IP:string):boolean;stdcall; 上次传的那个有点问题，又没法重新传。