windows 7 de formcreate kısmına bu kodu eklıyorum :
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
begin
try
IdIcmpClient1.Host:='31.210.79.11';//remote ip adresi.
IdIcmpClient1.Ping();
Label1.Caption:=IntToStr(IdIcmpClient1.ReplyStatus.MsRoundTripTime);// atılan ping değeri.
except
ShowMessage('Soket hatası: Ana sunucuya baglanamiyor.');// sunucu kapalıysa baglanamadı hatası verıyor.
end;
end;