[易]用这段代码，怎样判断是否PING得通？请大虾们指点一下~谢谢~(20分)

//下面这段是将网址转换成IP，函数没问题，SvrNameToIP(hostname)很好用，只是
//如果网址错误或PING不通该怎么办？怎样返回信息？比如返回Showmessage('wrong!')

//use winsock
function SvrNameToIP(const SvrName: string): string;
type
PPInAddr = ^PInAddr;
var
phe: PHostEnt;
pp: PPInAddr;
GInitData: TWSADATA;
begin
WSAStartup($101, GInitData);
Result := '';
phe := GetHostByName(PChar(SvrName));
if phe = nil then
Exit;
pp := PPInAddr(phe^.h_addr_list);
if pp^ <> nil then
Result := StrPas(inet_ntoa(pp^^));
WSACleanup;
end;
//程序没问题，只是偶以前没接触过网络这块，看不太懂……

偶自己搞定~请版主帮忙删了吧~SORRY~