¿Como hacer Ping desde codigo?

[[duilioisola]]

En Delphi puedes usar las Indi Clients - TIdIcmpClient.

Código Delphi [-]
procedure TForm1.BtnPingClick(Sender: TObject);
begin
   IdIcmpClient1.Host := '192.168.1.1';
   IdIcmpClient1.Ping;
end;

procedure TFMMain.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
{TReplyStatus = record  
   BytesReceived: integer;  
   FromIpAddress: string;  
   MsgType: byte;  
   SequenceId: word;  
   MsRoundTripTime: longword;  
   TimeToLive: byte;  
   ReplyStatusType: 
   TReplyStatusTypes;  
end;

TReplyStatusTypes = (rsEcho, rsError, rsTimeOut, rsErrorUnreachable, rsErrorTTLExceeded);
}

end;