Hallo,
die Lösung Deines Problemes ist relativ einfach:
Du benötigst die
Indy-Komponente TIdIcmpClient.
Deren Attribut Host weist Du den Rechnernamen zu und führst ein Ping aus.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdIcmpClient.Host := 'Rechnername';
IdIcmpClient.Ping;
end;
Dem Ereignis OnReply der Komponente weist Du eine Methode zu, in der Du die
IP-Adresse abholen kannst.
Delphi-Quellcode:
procedure TForm1.IdIcmpClientReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin
ShowMessage(AReplyStatus.FromIpAddress);
end;