p;  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