Delphi 版的 Ping

uses IdIcmpClient;

{ Delphi 版的 Ping }
function DPingIP(const strIP: string; const intLinkTimeOut: Integer): Boolean;
var
  icmp: TIdIcmpClient;
  rpss: TReplyStatus;
begin
  icmp := TIdIcmpClient.Create(nil);
  try
    icmp.Host           := strIP;
    icmp.ReceiveTimeout := intLinkTimeOut;
    try
      icmp.Ping;
      rpss   := icmp.ReplyStatus;
      Result := not(rpss.ReplyStatusType = rsTimeOut);
    except
      Result := False;
    end;
  finally
    icmp.Free;
  end;
end;