unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function   LocalIP:string;   
implementation

{$R *.dfm}

function   LocalIP: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;

end.
ÄãÔÚº¯ÊýÖÐÓõ½µÄһЩÆäËûµ¥ÔªÎļþ±ØÐëÒª·Åµ½usesÖУ¬·ñÔòÊDz»Ðеġ£

---

Ò»ÉúÒ»ËÀÒ»±¯»¶
Ò»¶¬Ò»ÏÄÒ»¿àº®