请问在Delphi5中怎样得到拨号上网用户的动态IP？(100分)

请各位帮帮我！！！！！！！！

用普通的方法应该可以吧：
function GetLocalIP:String;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;

begin
WSAStartup($101, GInitData);
try
Result:='';
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^ <> nil do
begin
result:=StrPas(inet_ntoa(pptr^^));
Inc(I);
end;
finally
WSACleanup;
end;
end;

>>

unit common

const
RAS_MaxDeviceType = 16; //设备类型名称长度
RAS_MaxEntryName = 256; //连接名称最大长度
RAS_MaxDeviceName = 128; //设备名称最大长度
RAS_MaxIpAddress = 15; //IP地址的最大长度
RASP_PppIp = $8021; //拨号连接的协议类型，该数值表示PPP连接

type
Dword = longword;
HRASCONN = DWORD; //拨号连接句柄的类型
RASCONN = record //活动的拨号连接的句柄和设置信息
dwSize: DWORD; //该结构所占内存的大小(Bytes), 一般设置为SizeOf(RASCONN)
hrasconn: HRASCONN; //活动连接的句柄
szEntryName: array[0..RAS_MaxEntryName] of char;
//活动连接的名称
szDeviceType: array[0..RAS_MaxDeviceType] of char;
//活动连接的所用的设备类型
szDeviceName: array[0..RAS_MaxDeviceName] of char;
//活动连接的所用的设备名称
end;
TRASPPPIP = record //活动的拨号连接的动态IP地址信息
dwSize: DWORD; //该结构所占内存的大小(Bytes),一般设置为SizeOf(TRASPPPIP)
dwError: DWORD; //错误类型标识符
szIpAddress: array[0..RAS_MaxIpAddress] of char;
//活动的拨号连接的IP地址
end;


function RasEnumConnections(var lprasconn: RASCONN;
//接收活动连接的缓冲区的指针
var lpcb: DWORD; //缓冲区大小
var lpcConnections: DWORD //实际的活动连接数
): DWORD; stdcall;

//获取指定活动的拨号连接的动态IP信息
function RasGetProjectionInfo(
hrasconn: HRasConn; //指定活动连接的句柄
rasprojection: DWORD; //RAS连接类型
var lpprojection: TRASPPPIP; //接收动态IP信息的缓冲区
var lpcb: DWord //接收缓冲区的大小
): DWORD; stdcall;



implementation

function RasEnumConnections; external 'Rasapi32.dll' name 'RasEnumConnectionsA';

function RasGetProjectionInfo; external 'Rasapi32.dll' name 'RasGetProjectionInfoA';
end;

unit1
//略去一些，不妨事

procedure TForm1.Button1Click(Sender: TObject);
const
MaxConnections = 10; //假设最多有10个活动的拨号连接
var
connections: array[0..MaxConnections - 1] of RASCONN;
//拨号连接数组
longSize: dword;
intAvailabelConnections: dword;
//活动的拨号连接的实际数目
intIndex: integer;
strTemp: string;
dwResult: DWORD;
dwSize: DWORD;
RASpppIP: TRASPPPIP;
//活动的拨号连接的动态IP地址信息
begin
connections[0].dwSize := sizeof(RASCONN);
longSize := MaxConnections * connections[0].dwSize;
//接收活动连接的缓冲区大小
intAvailabelConnections := 0;
//获取所有活动的拨号连接的信息（连接句柄和设置信息）
dwResult := RasEnumConnections(connections[0],longSize, intAvailabelConnections);
if 0 <> dwResult then
memo1.lines.add('错误:' + inttostr(dwResult))
else
begin
memo1.lines.add('现有的活动连接有' +IntToStr(intAvailabelConnections) + '个');
//显示所有活动的拨号连接的信息（设置信息和动态IP地址）
for intIndex := 0 to intAvailabelConnections - 1 do
begin
//显示一个活动的拨号连接的设置信息
strTemp := '连接名称：'
+ StrPAS(connections[intIndex].szEntryName)
+ '，设备类型：'
+ StrPAS(connections[intIndex].szDeviceType)
+ '，设备名称：'
+ StrPAS(connections[intIndex].szDeviceName);
memo1.lines.add(strTemp);
//显示一个活动的拨号连接的动态IP地址
dwSize := SizeOf(RASpppIP);
RASpppIP.dwSize := dwSize;
dwResult := RASGetProjectionInfo(connections[intIndex].hRasConn,RASP_PppIp, RasPPPIP, dwSize); //获取动态IP地址
if 0 <> dwResult then
memo1.lines.add(
'错误:' + inttostr(dwResult))
else
memo1.lines.add(
'动态地址:' + StrPas(RASpppIP.szIPAddress));
end;
end;

end;

use winsock;
procedure TForm1.Button1Click(Sender: TObject);
type
TaPInAddr = Array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: Array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
IP: String;
begin
Screen.Cursor := crHourGlass;
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;
ShowMessage(IP);//如果上网则为上网ip否则是网卡ip
finally
Screen.Cursor := crDefault;
end;
end;

用TClientSocket连接一下Internat的主机，然后看它的localaddr,这样行不？不过没试过