获取 IP 地址

uses winsock;

Function  TForm1.GetIPAddr : String;
type
  TaPInAddr = array [0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe : PHostEnt;
  pptr : PaPInAddr;
  Buffer : array [0..63] of char;
  I : Integer;
  GInitData : TWSADATA;
begin
  WSAStartup($101, GInitData);
  Result := '';
  GetHostName(Buffer, SizeOf(Buffer));
  phe :=GetHostByName(buffer);
  if phe = nil then Exit;
  pptr := PaPInAddr(Phe^.h_addr_list);
  I := 0;
  while pptr^[I] <> nil do begin
     result:=StrPas(inet_ntoa(pptr^[I]^));
     Inc(I);
  end;
  WSACleanup;
end;

//根据机器名获取 IP 地址-----------------------------------------

function ComputerIP(ComputerName:String):String;
var phe:pHostEnt;
    w:TWSAData;
    ip_address:longint;
    p:^longint;
    ipstr:string;
begin
 if WSAStartup(2,w)<>0 then exit;
 phe:=gethostbyname(pchar(ComputerName));
 if phe<>nil then
  begin
   p:=pointer(phe^.h_addr_list^);
   ip_address:=p^;
   ip_address:=ntohl(ip_address);
   ipstr:=IntToStr(ip_address shr 24)+'.'+IntToStr((ip_address shr 16) and $ff)
    +'.'+IntToStr((ip_address shr 8) and $ff)+'.'+IntToStr(ip_address and $ff);
   Result :=ipstr;
  end;
end;