第壹，直接調用windows ping？命令，然後獲取其輸出信息。
二、借用Indy組件包？TIdIcmpClient？組件(來自互聯網的代碼):
程序？TForm1。Button1Click(發件人:？to object)；
定義變量
我？:?整數；
開始
Memo1。線條清晰。
IdIcmpClient1。主持人:=？Edit1。文本；？//計算機的名稱或IP地址
IdIcmpClient1。receive time out:= 1000；？//最大超時
按鈕1。啟用？:=?假的；？
嘗試
為了什麽？我:=0？去哪？13?做
開始
IdIcmpClient1。平；
申請。處理消息？；？//延遲
結束；
最後
按鈕1。啟用？:=?真實；？
結束；
結束；
程序？TForm1。idicmpclient 1回復(ASender:？TComponent
const？AReplyStatus:？TReplyStatus)；
var？
sTime:？字符串；
開始？
//檢測Ping應答錯誤？
如果？(AReplyStatus。MsRoundTripTime？=?0?)?然後呢？
sTime？:=?& lt1'?
不然呢？
sTime？:=?'=';？
//在列表框中顯示Ping消息？
Memo1。Lines.Add(格式('回復？從哪裏？[%s]？:?字節=%d？時間%s%d？ms？TTL=%d '，
[AReplyStatus。FromIpAddress，？
AReplyStatus。收到的字節數，？
時間？
AReplyStatus。MsRoundTripTime，？
AReplyStatus。time tolive]))；
結束；第三，編寫ping函數，實現函數代碼。