、用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;
3、获取默认的拨号连接的名称
默认的拨号连接,即用户在浏览器中设置的拨号连接,该连接可以认为是用户最
常用拨号连接.
在注册表的HKEY_USERS.DefaultRemoteAccess位置,有一个字符串名Profile,它对应字符值即为HKEY_USERS.DefaultRemoteAccessAddresses.
二、新建拨号连接、修改拨号连接的属性
RasAPI函数RasCreatePhonebookEntry、RasEditPhonebookEntry通过调用Win9X的
新建拨号连接、修改拨号连接的设置界面,允许用户新建拨号连接、修改拨号连接,具体的设置操作还要由系统来完成.
1、新建拨号连接
新建拨号连接的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;
2、修改拨号连接的属性
修改拨号连接的属性的R