如何Delphi中操纵拨号网络

　　２、用RasAPI函数

　　RasAPI函数RasEnumEntries可获取当前系统中可用的拨号连接名称．其函数原型为

　　function RasEnumEntries(reserved : PChar;//保留字段

　　必须为NIL

　　lpszPhonebook : PChar;//电话本名称

　　在Win9X下无作用

　　可为空字符串

　　lprasentryname : LPRASENTRYNAME;//接收拨号连接名称的缓冲区

　　是一个RASENTRYNAME类型数组的指针

　　var lpcb : DWORD;//接收拨号连接名称的缓冲区的大小(Bytes)

　　var lpcEntries: DWORD//实际获得的拨号连接名称的数目

　　) : DWORD; stdcall;

　　function RasEnumEntries;external RasApiDll name 'RasEnumEntriesA';

　　参数lprasentryname提供了一个RASENTRYNAME类型数组的指针，指向一个接收拨号连接名称的缓冲区，其中RASENTRYNAME及LPRASENTRYNAME的类型说明如下：

　　LPRASENTRYNAME = ^RASENTRYNAME;

　　RASENTRYNAME = record

　　dwSize : DWORD;//该结构所占内存的大小(Bytes)

　　一般设置为SizeOf(RASENTRYNAME)

　　szEntryName : array [ 0..RAS_MaxEntryName ] of char;//拨号连接名称

　　end;

　　lpcb为缓冲区的大小，一般设置为dwSize的倍数，倍数为可能有的连接的个数．

　　lpcEntries实际的连接的个数．

　　下面是一个应用例子，列出了当前系统中可用的拨号连接名称．

　　注意，应在RASENTRYNAME缓冲区的第一个RASENTRYNAME结构中设置dwSize．

const MaxPhoneEntries = 10;//最多的拨号连接数目
var intIndex : integer;
PhoneEntries : array[ 0..MaxPhoneEntries - 1 ] of RASEntryName;
dwSize
dwEntries
dwResult : DWORD;
begin
//在RASENTRYNAME缓冲区的第一个RASENTRYNAME结构中设置dwSize
PhoneEntries[ 0 ].dwSize := sizeof( RASEntryName );
dwSize := MaxPhoneEntries * sizeof( RASEntryName );//为缓冲区的大小
//调用RasAPI函数，获取当前系统中可用的拨号连接名称
dwResult := RasEnumEntries ( NIL
''
@PhoneEntries[ 0 ]
dwSize
dwEntries );
if dwResult <> 0 then
begin//RasAPI函数，执行错误
memo1.lines.add('RasEnumEntries错误:' + GetRasError( dwResult ));
exit;
end;
//显示当前系统中可用的拨号连接名称
memo1.lines.add('共有' + inttostr( dwEntries ) + '个RAS连接，如下所示');
for intIndex := 0 to dwEntries -1 do
memo1.lines.add( strpas( PhoneEntries[ intIndex ].szEntryName ) );
end;