Цитата:
IdIcmpClient1.Host:='Твой Ип'//Берем строчку X из memo1 и вставляем её в HOST
IdIcmpClient1.Ping; //Пингуем
|
-----------------------------------------------------------------------
Цитата:
if IdIcmpClient1.ReplyStatus.ReplyStatusType=rsEcho
then
ListBox1.Items.Add(Memo1.Lines.Strings[x]);
end;
|