Здравствуйте, пытаюсь проверить доступность компов в локалке так:
Код:
begin
try
IdIcmpClient1.Host:=('S01');
IdIcmpClient1.Ping;
ttl:=IdIcmpClient1.ReplyStatus.TimeToLive;
if TTL>0 then c2 := ('1');
if TTL=0 then c2 := ('0');
except
c2 := ('2');
end;
Если компы включены всё хорошо, если выключены программа висит по страшному, и чем больше выключенных компов, тем сильнее висит, подскажите пожалуйста что нибудь.
Заранее благодарю.