请问在delphi中，什么语句可以获得本机的ip

Question

请问在delphi中，什么语句可以获得本机的ip？

Answer 1

function TMyClass.GetLocalIp(var ALocalIp: String): Boolean;  //uses WinSock
var
  HostEnt: PHostEnt;
  Ip: string;
  addr: pchar;
  Buffer: array [0..63] of char;
  GInitData: TWSADATA;
begin
  Result := False;
  try
    WSAStartup(2, GInitData);
    GetHostName(Buffer, SizeOf(Buffer));
    HostEnt := GetHostByName(buffer);
    if HostEnt = nil then Exit;
    addr := HostEnt^.h_addr_list^;
    ip := Format('%d.%d.%d.%d', [byte(addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
    ALocalIp := Ip;
    Result := True;
  finally
    WSACleanup;
  end;
end;

Answer 2

function TMyClass.GetLocalIp(var ALocalIp: String): Boolean;  //uses WinSock
...Tmyclass是什么意思啊？去掉了以后才可以运行