{$R *.dfm}
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
function GetIP(pptr: PaPInAddr; I: Integer): String;
begin
Result := StrPas(inet_ntoa(pptr^[I]^));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MyHost: PHostent;
ptr: TaPInAddr;
WsData: TWsaData;
begin
if (WsaStartup(2,WsData) = 0) then
MyHost := GetHostByName('luo'); //'luo'可以填局域网上的某台主机的名字,辱你自己机子的名字
if MyHost <> nil then
begin
ptr[0] := PInAddr(MyHost^.h_addr_list^);
ShowMessage(GetIP(@ptr, 0));
end;
WSACleanup;
end;