Ping компа в локалке

[Alex711]

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

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;

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

[Shouldercannon]

Выставить Timeout, если есть или делать в потоке или использовать

Application.ProcessMessages

[Aliens_wolfs]

Лучше это сделать в потоке, можно даже делать одновременный опрос несколько адресов.

Примерно так

  type
  TPingThread = class(TThread)
  private
   FIdIcmpClient: TIdIcmpClient;
   FC2: String;
   FIpAddr: string;
  Protected
   procedure Execute; Override;
  public
    constructor Create(Ip: string); virtual;
   procedure OnStop; virtual;
end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

constructor TPingThread.Create(Ip: string);
begin
  inherited Create(false);
  FreeOnTerminate := True;
  FIpAddr:= Ip;
end;

procedure TPingThread.Execute;
var
ttl: integer;
begin
Fc2:= 'no ping';
try
   FIdIcmpClient:= TIdIcmpClient.Create(nil);
   FIdIcmpClient.Host:= FIpAddr;
 try
   FIdIcmpClient.Ping;
   ttl:=FIdIcmpClient.ReplyStatus.TimeToLive;
   if TTL > 0 then
   Fc2 := '1';
   if TTL = 0 then
   Fc2 := '0';
 except
  Exit;
  end;
finally
 FreeAndNil(FIdIcmpClient);
 Synchronize(OnStop);
end;
end;

procedure TPingThread.OnStop;
begin
Form1.Memo1.Lines.Add(Fc2);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
TPingThread.Create('192.168.1.45');
end;

А вот когда то делал пинг на несколько адресов использовал непосредственно саму библиотеку ICMP.DLL. Есть там конечно небольшие ошибки но их можно подправить.
Может это вам поможет