Wie kann ich meine eigene IP-Adresse ermittlen?

Uses Winsock;

function GetIP : longint;
const bufsize=255;
var buf: pointer;
    RemoteHost : PHostEnt;
begin
  buf := NIL;
  try
    getMem(buf,bufsize);
    winsock.gethostname(buf,bufsize);
    RemoteHost := Winsock.GetHostByName(buf);
    if RemoteHost=NIL then
      my_ip_address:=winsock.htonl($07000001) // 127.0.0.1
    else
      my_ip_address:=longint(pointer(RemoteHost^.h_addr_list^)^);
  finally
    if buf<>NIL then freemem(buf,bufsize);
  end;
  result := winsock.ntohl(result);
end;

siehe auch:

Delphi FAQ