Fórum Nome dos Computadores da Rede em uma Combobox #223890

Insira na sua aplicação o objeto IdICMPClient e execute um ping na maquina que vc dejesa verificar se esta na rede! se ela estiver ela vai responder com seu endereço IP e outros dados! o resto e com sua criatividade!

procedure TForm1.Button1Click(Sender: TObject);
var Buff: string;
begin
IdICMPClient1.Port := 1024;
IdICMPClient1.Host := ´10.1.1.17´;
IdICMPClient1.Ping(Buff, 0);
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin
Memo1.Lines.Add(AReplyStatus.FromIpAddress);
Memo1.Lines.Add(IntToStr(AReplyStatus.SequenceId));
end;

Me interessei nisso,mas que objeto é esse?