如何Delphi中操纵拨号网络

function RasEditPhonebookEntry(
hwnd : THandle; //新建拨号连接窗口的父窗口的句柄，为NIL表示桌面(DeskTop)
lpszPhonebook: pchar;//电话本名称，在Win9X下无作用

　　可为空字符串

lpszEntryName: pchar//拨号连接的名称，如'163'、'169'等
) : DWORD; stdcall;
function RasEditPhonebookEntry;external RasApiDll name 'RasEditPhonebookEntryA';

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

　　下面是一个应用例子，允许用户修改指定拨号连接的属性．

var
dwResult : DWORD;
begin
//在当前窗口中修改拨号连接的属性
dwResult := RasEditPhonebookEntry( handle
''
'163' );
if dwResult = 0 then
memo1.lines.add('修改拨号连接成功!')
else
memo1.lines.add('修改拨号连接失败：!' + GetRasError( dwResult ))
end;

　　三、获取和设置拨号连接的拨号参数

　　用RasAPI函数RasGetEntryDialParams、RasSetEntryDialParams可以直接获取和设置指定拨号连接的拨号参数，其中包括用户名称和用户密码！

　　１、获取拨号连接的拨号参数

　　获取拨号连接的拨号参数RasAPI函数为RasGetEntryDialParams，其函数原型为：

　　function RasGetEntryDialParams(

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

　　可为空字符串

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