Ping 显示的全是英文，我自已重做了一下（并加上保存记录之类的功能），但不会英文，能有好心人帮翻译一下吗？

// 调用 IcmpSendEcho 得出的值.....

function EvaluatePingResponse(const PingResponse : DWORD) : String;
begin
  case PingResponse of

  // 下面这些可能不太正确，能帮校正一下吗？
    ICMP_SUCCESS  :  Result:='成功';
    ICMP_STATUS_BUFFER_TO_SMALL  :  Result:='Icmp 提供的缓冲区大小;
    ICMP_STATUS_DESTINATION_NET_UNREACH  :  Result:='目的地网络不能到达';
    ICMP_STATUS_DESTINATION_HOST_UNREACH  :  Result:='目的地主机不能到达';
    ICMP_STATUS_DESTINATION_PROTOCOL_UNREACH  :  Result:='目的地协议不能到达';
    ICMP_STATUS_DESTINATION_PORT_UNREACH  :  Result:='目的地端口不能到达';
    ICMP_STATUS_NO_RESOURCE  :  Result:='没有资源';
    ICMP_STATUS_BAD_OPTION  :  Result:='错误选项';
    ICMP_STATUS_HARDWARE_ERROR  :  Result:='硬件错误';
    ICMP_STATUS_LARGE_PACKET  :  Result:='信息包太大';
    ICMP_STATUS_REQUEST_TIMED_OUT  :  Result:='超时';
    ICMP_STATUS_BAD_REQUEST  :  Result:='错误请求';
    ICMP_STATUS_BAD_ROUTE  :  Result:='错误路由';
    ICMP_STATUS_TTL_EXPIRED_TRANSIT  :  Result:='TTL终止传输';
    ICMP_STATUS_TTL_EXPIRED_REASSEMBLY  :  Result:='TTL终止重新组装';
    ICMP_STATUS_PARAMETER  :  Result:='参数有问题';
    ICMP_STATUS_SOURCE_QUENCH  :  Result:='资源结束';
    ICMP_STATUS_OPTION_TOO_BIG  :  Result:='选项太大';
    ICMP_STATUS_BAD_DESTINATION  :  Result:='错误目的地';
    ICMP_STATUS_NEGOTIATING_IPSEC  :  Result:='谈判IPSEC';
    ICMP_STATUS_GENERAL_FAILURE  :  Result:='通用故障';
   else  Result:='未知错误:' + IntToStr(PingResponse);
  end;
end;

谢谢！！！

[课程]FART 脱壳王！加量不加价！FART作者讲授！