[Alex7]

Здравствуйте, пытаюсь проверить доступность компов в локалке так:

Код:

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;

Если компы включены всё хорошо, если выключены программа висит по страшному, и чем больше выключенных компов, тем сильнее висит, подскажите пожалуйста что нибудь.
Заранее благодарю.

[lmikle]

1. Установить TimeOut
2. "Выкинуть" проверку в потоки (Thread)