在Delphi中程序管理拨号网络.docVIP

在Delphi中程序管理拨号网络 来自：jsxjd, 时间：2003-1-13 9:51:00, ID：1576042 在Delphi中程序管理拨号网络 用MODEM拨号上网，仍是大多数个人网民选择上网的方式．如果能在我们的应用程序中管理拨号网络（如Foxmail、Sygate中的拨号功能），无疑将会方便我们的软件用户（不用再切换应用程序，运行拨号网络），提高我们的软件的友好性从而提高软件的竞争力． 在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL，我们可利用其中的函数来获取和设置拨号连接网络的信息。在Delphi帮助文件中，有相关函数的说明。 　　在此，我们要讨论的管理项目有： 　　　　１、获取当前系统中可用的拨号连接名称 　　　　２、新建拨号连接、修改拨号连接的属性 　　　　３、获取和设置拨号连接的拨号参数 　　　　４、用指定的拨号连接拨号、挂断指定的拨号连接 　　　　５、获取当前活动的连接及其连接状态 一、获取当前系统中可用的拨号连接名称 即获取系统中已建立的拨号连接的名称，可用来让用户选择使用哪个拨号连接进行拨号． 可以用两种方法来实现．一种是利用RasAPI函数；另一种是不用RasAPI函数，直接在注册表中查询． １、不用RasAPI函数，直接在注册表中查询 在注册表的HKEY_USERS\.Default\RemoteAccess\Addresses下，列出了已经在拨号网络中建立了的拨号连接的名称及其属性设置，其中各项目的名称即为可用的拨号连接的名称；各项目的值即为各拨号连接的属性设置，不过是二进制串，笔者还看不懂．由此可见，我们只要读出各项目的名称即可获取当前系统中可用的拨号连接名称． var registryTemp : TRegistry; stringsTemp : TStringlist; begin registryTemp := TRegistry.Create; stringsTemp := TStringlist.Create; with registryTemp do begin RootKey := HKEY_USERS;//根键设置为HKEY_USERS //如果存在子键.Default\RemoteAccess\Addresses if OpenKey( .Default\RemoteAccess\Addresses,false) then GetValueNames( stringsTemp ); //读出各项目的名称，即拨号连接名称 end; combobox1.Items.assign( stringsTemp ); //显示，供选择 end; ２、用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为缓冲区的大小，