怎样取得本机的内部ip及外部ip地址(50分)

很急,请高手多指点,谢谢!!!

保存的别人的代码，贴给你。
//获取本机的IP地址
function get_ip:string;
type
TaPInAddr=array[0..10] of PInAddr;
PaPInAddr=^TaPInAddr;
var
pheHostEnt;
pptraPInAddr;
Buffer:array[0..63] of Char;
i:Integer;
GInitData:TWSAData;
IP:string;
begin
try
WSAStartup($101,GInitData);
IP:='0.0.0.0';
GetHostName(Buffer,SizeOf(Buffer));
phe:=GetHostByName(Buffer);
if phe=nil then
begin
ShowMessage(IP);
Exit;
end;
pptr:=PaPInAddr(phe^.h_addr_list);
i:=0;
while pptr^<>nil do
begin
IP:=inet_ntoa(pptr^^);
inc(i);
end;
WSACleanup;
get_ip:=IP; //如果上网则为上网ip否则是网卡ip
finally
end;
end;

下面是一个软件的介绍，我觉得可以借鉴：
——————————————————————————————————————
::IPGetv0.92-查找本机内部IP和外部IP的小工具[发布]软件简介::
查找本机内部IP和外部IP的小工具! 本软件针对企业、网吧等局域网用户查找内部IP和外部IP而设计! 在打游戏或者使用一些Internet软件(如：NetMetting 和一些点对点软件)时，要求输入内部IP或外部Ip时，本软件就给您提供了方便!本软件查找内部IP的软件支持双网卡，优于一般查找内部IP的软件；如果您在局域网中，只要您能通过IE浏览器正常上网，本软件就可以利用IE浏览器的网络设置查找外部IP，这是本软件的最大特色!

内部IP：该IP仅在局域网内的范围是有效的，只有同局域网内的用户才可以经此IP地址与您建立连接；
外部IP：该IP是国际互联网上的真实IP，任何人都可以经此IP地址与您建立连接。

请问[zywcd]:
运行时候提示inaddr,PHostEnt,TWSAData;等没有定义,不只是否还要引用什么,请告知.

多人接受答案了。