用API函数:例子:
uses Winsock;
procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested : WORD; 
wsaData : TWSAData;
begin {创建 WinSock}
wVersionRequested := MAKEWORD(1, 1); 
WSAStartup(wVersionRequested, wsaData);
end;
procedure TForm1.Button1Click(Sender: TObject);
var p : PHostEnt; s : array[0..128] of char; p2 : pchar;
begin {得到计算机名称}
GetHostName(@s,128);
p:=GetHostByName(@s); 
Memo1.Lines.Add(p^.h_Name);{得到机器IP地址} 
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin{释放 WinSock} 
WSACleanup;
end