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;
３、获取默认的拨号连接的名称
默认的拨号连接，即用户在浏览器中设置的拨号连接，该连接可以认为是用户最常用拨号连接．
在注册表的HKEY_USERS\.Default\RemoteAccess位置，有一个字符串名Profile，它对应字符值即为HKEY_USERS\.Default\RemoteAccess\Addresses．
二、新建拨号连接、修改拨号连接的属性
RasAPI函数RasCreatePhonebookEntry、RasEditPhonebookEntry通过调用Win9X的
新建拨号连接、修改拨号连接的设置界面，允许用户新建拨号连接、修改拨号连接，具体的设置操作还要由系统来完成．
１、新建拨号连接
新建拨号连接的RasAPI函数为RasCreatePhonebookEntry，其函数原型为：
function RasCreatePhonebookEntry(
hwnd : THandle; //新建拨号连接窗口的父窗口的句柄，为NIL表示桌面(DeskTop)
lpszPhonebook: pchar//电话本名称
在Win9X下无作用
可为空字符串
) : DWORD;stdcall;
function RasCreatePhonebookEntry;external RasApiDll name ''RasCreatePhonebookEntryA'';
函数返回值为0表示执行成功;否则为错误代码．
下面是一个应用例子，允许用户新建一个拨号连接．
var
dwResult : DWORD;
begin
//在当前窗口中新建拨号连接
dwResult := RasCreatePhonebookEntry( handle
'''' );
if dwResult = 0 then
memo1.lines.add(''新建拨号连接成功!'')
else
memo1.lines.add(''新建拨号连接失败：!'' + GetRasError( dwResult ))
end;
２、修改拨号连接的属性
修改拨号
