需引用WinSock单元

 

 

var  

    WSAData:TWSAData;  
    Socket1:TSocket;  
    Addr:TSockAddr;  
    Re:Integer;  
begin  
    //初始化WinSock   
    if (WSAStartup(MakeWord(2,0), WSAData) <> 0) then  
    begin  
        mmo1.Lines.Add('WinSock初始化失败！');  
        Exit;  
    end  
    else  
    mmo1.Lines.Add('WinSock开始运行……');  
    mmo1.Lines.Add(inet_ntoa(PInAddr(gethostbyname('www.hao828.com')^.h_addr_list^)^));