如何Delphi中操纵拨号网络

　　四、用指定的拨号连接拨号、挂断指定的拨号连接

　　１、用指定的拨号连接拨号

　　拨号有两种方法，一种是调用拨号网络中的拨号程序，就象用户自己用鼠标双击拨号连接名称一 样，用户可以修改拨号号码、用户名称和用户密码，最后由拨号网络来完成拨号过程；另一个方法则 是调用RasAPI函数．

　　（１）用拨号网络中的拨号程序

　　在程序中可以用如下代码：

winexec('rundll32.exe rnaui.dll
RnaDial 169'
SW_SHOWNORMAL);

　　其中字符串中的最后一个参数"169"为拨号连接的名称。

　　（２）用RasAPI函数拨号 用拨号连接拨号的RasAPI函数为RasDial，其函数原型为：

　　function RasDial(

　　pRasDialExtensions : LPRASDIALEXTENSIONS;//在WIN9X下无用

　　可设置为NIL

　　lpszPhonebook : PChar;//电话本名称，在Win9X下无作用

　　可为空字符串

lpRasDialParams : LPRASDIALPARAMS;//拨号参数
dwNotifierType : DWORD;//消息通知方式
handle : TRasDialFunc;//消息处理事件
var lphRasConn : DWORD//返回的成功连接的连接句柄
) : DWORD; stdcall;
function RasDial;external RasApiDll name 'RasDialA';

　　参数pRASDIALPARAMS的说明同RasGetEntryDialParams．

　　参数dwNotifierType表示消息通知方式．在拨号过程中，系统发出拨号事件消息可以通知拨号 进度，因而需要提供接受消息的方式和处理消息的函数．当其值为$FFFFFFFF时，则参数handle被 视为一个窗口的句柄，事件消息被发生该窗口处理；当其值为0时，handle被视为TRasDialFunc类型 的函数的指针；当其值为1时，handle被视为TRasDialFunc1类型的函数的指针．