How can I detect the IP addresses of other devices on the local network?

Question

I already detect local IP address of my computer using this code (use sockets):

Function Ip_Local : String;
  Var Acces_Sock : TCustomIpClient;
Begin
  Acces_Sock := TCustomIpClient.Create(Nil);
  Try
    Result := Acces_Sock.LocalHostAddr
  Finally
    Acces_Sock.Free;
  End;
End; 

What about detecting the internal LAN IP address of the router and, if possible, of any LAN-connected appliance such as a DVR?

Answer 1

Using Indy:

function CsiGetRemoteIpAddress(const pHostName: string): string;
begin
  TIdStack.IncUsage;
  try
    Result := GStack.ResolveHost(pHostName);
  finally
    TIdStack.DecUsage;
  end;
end;