如何得到本機的ip地址

program get_ip;
　　uses
　　  winsock,sysutils;
　　VAR
　　  ch : ARRAY[1..32] OF Char;
　　  i : Integer;
　　  WSData: TWSAData;
　　  MyHost: PHostEnt;
　　begin
　　  IF WSAstartup(2,wsdata)<>0 THEN
　　    BEGIN
　　      Writeln('can't start Winsock: Error ',WSAGetLastError);
　　      Halt(2);
　　    END;
　　  try
　　    IF getHostName(@ch[1],32)<>0 THEN
　　      BEGIN
　　        Writeln('getHostName failed');
　　        Halt(3);
　　      END;
　　  except
　　    Writeln('getHostName failed');
　　    halt(3);
　　  end;
　　  MyHost:=GetHostByName(@ch[1]);
　　  IF MyHost=NIL THEN
　　    BEGIN
　　      Writeln(GetHostName('+StrPas(@ch[1])+') failed : Error
　　'+IntToStr(WSAGetLastError));
　　      Halt(4);
　　    END
　　  ELSE
　　    BEGIN
　　        Write('address ');
　　         FOR i:=1 TO 4 DO
　　            BEGIN
　　              Write(Ord(MyHost.h_addr^[i-1]));
　　              IF i<4 THEN
　　                write('.')
　　              ELSE
　　                writeln;
　　            END;
　　   END;