一个网络方面的问题？(急)

Question

在开始->运行里 
ping ip地址(外部的,或服务器的)

Answer 1

 Windows中，如果安装了拨号网络，那么在系统目录下，就有两个拨号网络管理程序库
RasApi32.dll和RasApi16.dll，可以利用其中的函数获取拨号信息
function RasenumConnections;externa;'reasapi32.dll' nameRasEnumconnectionsA'
function RasenumConnections(var lprasconn:RASCONN;var lpcb:DWORD;
                            var lpcConnections:DWORD//有效的连接数
                            ):DWORD;stdcall;
返回0时表示成功，不然就为错误代码；
可以用得到已经建立的连接信息，包括连接设备名称，数量，类型，连接句柄
Type
  RASCON=record
  dwsize:DWORD;
  hrasconn:DWORD;//活动连接句柄
  szEntryName:array[0..256]of char;//....名称
  szDerviceType:array[0..16]of char;//....设备类型
  szDerviceName:array[0..128]of char;//....设备名称
end;
var
  connections[0..4]of RASCON;
  //拨号连接数组，假设最多为5个。
  ConIndex:Integer;
  longsize,intAvailabelConnections:DWORD;
  TmpStr:String;
begin
  connections[0].dwsize:=sizeof(RASCONN);
  longsize:=5*connections[0].dwsize;  //接收缓冲区大小
  intAvailabelConnections:=0;
  dwResult:=RasEnumConnections(connections[0].longSize,intAvailabelConnections);
//获取活动的拨号连接信息
if dwResult<>0 then
  ShowMessage('Error'+inttostr(dwResult))
else
 begin
  tmpstr:='活动连接：'+inttostr(intAvailabelConnections);
  for ConIndex:=0 to intAvailabelConnections then
   begin
     tmpstr:=tmpstr+'连接名称：'+StrPas(connections[].szEntryName)
     +#13+'设备类型：'+StrPas(connections[].szDerviceType)
     +#13+设备名称：''+StrPas(connections[].szDerviceName)；
   end;
  ShowMessage(TmpStr);
  end;
end;