用MODEM拨号上网，仍是大多数个人网民选择上网的方式．如果能在我们的应用程序中启动拨号连接（如IE浏览器程序中的自动拨号功能），无疑将会方便我们的软件用户（不用再切换应用程序，运行拨号网络），提高我们的软件的友好性从而提高软件的竞争力．
　　在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL，我们可利用其中的函数来创建、修改拨号连接，并利用指定的拨号连接进行拨号上网。

一、新建拨号连接
　　当WIN9X系统中已经建立了拨号连接，则可利用现成的拨号连接。如果没有拨号连接，则需要新建一个拨号连接。RasAPI中提供了相应的函数，其函数名为RasCreatePhonebookEntryA，函数原型为：
function RasCreatePhonebookEntryA( hwnd : THandle;lpszPhonebook: pchar ) : DWORD;
stdcall; { 位于interface部分 }
function RasCreatePhonebookEntryA ; external ’Rasapi32.dll’;{ 位于implementation部分 }
　　参数：
　　　　hwnd（THandle）：新建拨号连接窗口的父窗口的句柄，可以为TForm的Handle，为NIL表；Windows桌面(DeskTop)
　　　　lpszPhonebook（pchar）：电话本名称,在Win9X下无作用,可设为空字符串
　　函数返回值：
　　　　0表示执行成功；否则为错误．

　　　　下面是一个新建拨号连接的例子．
{ 新建拨号连接 }
procedure TForm1.Button1Click(Sender: TObject);
var
   dwResult : DWORD;
begin
     //在当前窗口中新建拨号连接
     dwResult := RasCreatePhonebookEntryA( handle, ’’ );
     if dwResult = 0 then
        memo1.lines.add(’新建拨号连接成功!’)
     else
        memo1.lines.add(’新建拨号连接失败!’)
end;

二、修改指定拨号连接的属性
　　如果用户需要修改拨号连接的属性如电话号码、国家及区号、连接方式、服务器类型等，可以用RasAPI函数来实现，其函数名为RasEditPhonebookEntryA，函数原型为：
function RasEditPhonebookEntryA( hwnd : THandle; lpszPhonebook: pchar;
lpszEntryName: pchar ) : DWORD;stdcall; { 位于interface部分 }
function RasEditPhonebookEntryA; external ’Rasapi32.dll’;{ 位于implementation部分 }
　　参数：
　　　　hwnd（THandle）：新建拨号连接窗口的父窗口的句柄，可以为TForm的Handle，为NIL表示
                         Windows桌面(DeskTop)
　　　　lpszPhonebook（pchar）：电话本名称,在Win9X下无作用,可设为空字符串
        lpszEntryName:（ pchar）：要修改的拨号连接的名称，如’163’、’169’等
　　函数返回值：
　　　　0表示执行成功；否则为错误．

　　　　下面是一个修改指定拨号连接属性的例子．
{ 修改指定拨号连接属性 }
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;www.goodsgy.com

www.goodsgy.com

[1] [2]  下一页