如何Delphi中操纵拨号网络

　　２、设置拨号连接的拨号参数

　　设置拨号连接的拨号参数RasAPI函数为RasSetEntryDialParams，其函数原型为：

　　function RasSetEntryDialParams(

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

　　可为空字符串

pRASDIALPARAMS:LPRASDIALPARAMS;//拨号参数，是一个RASDIALPARAMS类型的指针
var lpfPassword : WordBool//是否删除用户密码
) : DWORD; stdcall;
function RasSetEntryDialParams;external RasApiDll name 'RasSetEntryDialParamsA';

　　参数pRASDIALPARAMS的说明同RasGetEntryDialParams．

　　参数lpfPassword的含义与RasGetEntryDialParams不同，在此表示是否删除用户密码，为

　　TRUE时将原来的用户密码删除．

　　函数返回值为0表示执行成功；否则为错误代码．

　　下面是一个应用例子，设置指定拨号连接的拨号参数．

var
dwResult : DWORD;
RASDIALPARAMSData : RASDIALPARAMS;
RemovePWD : WordBool;
begin
//指定拨号连接的拨号参数
with RASDIALPARAMSData do
begin
dwSize := sizeof( RASDIALPARAMS );//结构大小
szEntryName := '163';//指定拨号连接的名称
szUserName := 'MyName';//指定用户名称
szPassword := 'MyPassword';//指定用户密码
szDomain := 'MyDomain';//指定域名
szCallbackNumber := '';//指定回叫号码
szPhoneNumber := '';//指定拨号号码
end;
RemovePWD := false;//不需要删除用户密码
//设置指定拨号连接的拨号参数
dwResult := RasSetEntryDialParams( ''
@RASDIALPARAMSData
RemovePWD );
if dwResult <> 0 then //设置指定拨号连接的拨号参数失败
memo1.lines.add( '设置'+StrPAS(RASDIALPARAMSData.szEntryName )+'拨号参数失败：' + GetRasError( dwResult ))
else
begin//显示指定拨号连接的拨号参数
memo1.lines.add( StrPAS(RASDIALPARAMSData.szEntryName )+'拨号参数设置成功');
memo1.lines.add( '用户名称：' + StrPAS(RASDIALPARAMSData.szUserName ));
memo1.lines.add( '用户密码：' + StrPAS(RASDIALPARAMSData.szPassword ));
memo1.lines.add( '域 名：' + StrPAS(RASDIALPARAMSData.szDomain ));
memo1.lines.add( '回叫号码：' + StrPAS(RASDIALPARAMSData.szCallbackNumber ));
memo1.lines.add( '拨号号码：' + StrPAS(RASDIALPARAMSData.szPhoneNumber ));
end;
end;