---- 一、先解釋一些要用到的數據常量和數據結構。

constRAS_MaxDeviceType = 16;//設備類型名稱長度RAS_MaxEntryName = 256;//連接名稱最大長度RAS_MaxDeviceName = 128;//設備名稱最大長度RAS_MaxIpAddress = 15;//IP地址的最大長度Rasp_PppIp = $8021;//撥號連接的協議類型，該數值表示PPP連接typeHRASCONN = 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;

---- 二、接著要解釋要用到的兩個RAS函數。

//獲取所有活動的撥號連接的信息（連接句柄和設置信息）function RasEnumConnections( var lPRasconn : RASCONN ;//接收活動連接的緩沖區的指針    var lpcb: DWORD;//緩沖區大小    var lpcConnections : DWORD//實際的活動連接數   ) : DWORD; stdcall;function RasEnumConnections;external 'Rasapi32.dll' name 'RasEnumConnectionsA';//獲取指定活動的撥號連接的動態IP信息function RasGetProjectionInfo(    hrasconn : HRasConn;//指定活動連接的句柄    rasprojection : DWORD;//RAS連接類型    var  lpprojection : TRASPPPIP;//接收動態IP信息的緩沖區    var  lpcb : DWord//接收緩沖區的大小   ) : DWORD;stdcall;function RasGetProjectionInfo;external 'Rasapi32.dll' name 'RasGetProjectionInfoA';

　　這兩個函數的返回值為０時表示執行成功，非０表示錯誤代碼。

---- 三、下面要討論如何用上面的兩個RAS函數獲取撥號連接的動態IP地址

---- 　　首先，要用函數RasEnumConnections列出已建立的活動撥號連接的信息，其中包括連接名稱、連接句柄、連接設備類型和設備名稱；然后根據連接句柄用函數RasGetProjectionInfo獲取連接對應的一個TRASPPPIP結構，其中包括一個成員屬性szIpAddress即為動態IP地址。具體請參見以下程序片段和注釋信息。

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;