关于拨号的问题

Question

在win9x下，如果安装了拨号网络，则在windows系统的系统目录system下将有两个拨号网络管理程序库rasapi32.dll和rasapi16.dll，我们可利用其中的函数来创建、修改拨号连接，并利用指定的拨号连接进行拨号上网。
//新建拨号连接
procedure tform1.button1click(sender: tobject);
var
   dwresult : dword;
begin
     //在当前窗口中新建拨号连接
     dwresult := rascreatephonebookentrya( handle, ’’ );
     if dwresult = 0 then
        memo1.lines.add(’新建拨号连接成功!’)
     else
        memo1.lines.add(’新建拨号连接失败!’)
end;{ 修改指定拨号连接属性 }
procedure tform1.button2click(sender: tobject);
var
   dwresult : dword;
   strdialname : string;
begin
     strdialname := ’163’;//拨号连接的名称设为163
     //在当前窗口中指定修改拨号连接的属性
     dwresult := raseditphonebookentrya( handle, ’’, pchar( strdialname ) );
     if dwresult = 0 then
        memo1.lines.add(’修改拨号连接’ + strdialname + ’成功!’)
     else
        memo1.lines.add(’修改拨号连接’ + strdialname + ’失败!’)
end;{ 用指定的拨号连接拨号上网 }
procedure tform1.button4click(sender: tobject);
var
   strdialname : string;
begin
     strdialname := ’163’;//拨号连接的名称设为163
     memo1.lines.add( ’******************用拨号连接’+ strdialname
                     +’实现拨号上网****************’);
     winexec( pchar(’rundll32.exe rnaui.dll,rnadial ’ + strdialname),sw_shownormal);
end;