获取IP地址(50分)

本人服务器上有内网和外网双网卡，双IP地址，内网是局域网IP地址：192.168.*.***
外网是Internet网的IP地址：202.***.*.***
我想知道，用Delphi怎么样分别获取这两个IP地址

我也是想知道这个问题啊……好急啊！有没有高手知道啊？嘻，楼主给分我就不用给了……

uses .. winsock;
procedure TForm1.Button1Click(Sender: TObject);
var p2 : pchar;
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
begin
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested,wsaData);
GetHostName(@s, 128);
p := GetHostByName(@s);

p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
ShowMessage(Format('IP address is %s.',[p2]));
WSACleanup;
// showmessage(GetIPFromName(dataart));
end;
这样可以查局域网的

谢谢bowl：其实局域网的好讲，我最想知道的是外网那个，有没有办法

局域网根本就不用写代码都可以获得IP啦，用idIPWatch控件，里面有个好象是LocalIP之类的属性，方便！我跟楼主一样，想要知道连到外网的地址……[]