在程序里如何调用Win2000系统的modem拨号程序？(200分求解)

Question

在程序里如何调用Win2000系统的modem拨号连接程序，如果有多个拨号连接，如何能自动把拨号连接名称读到程序里，进行手动选择来拨号.

Answer 1

你需要调用WIN2OOO的拨号命令执行文件

Answer 2

TO CsdnKey(函数): 能具体说明一下吗？谢谢.

Answer 3

var 
  RASDIALPARAMSData : RASDIALPARAMS; 
  dwResult : DWord; 
  RasCon : DWord; 
  begin 
  //指定拨号连接的拨号参数 
  with RASDIALPARAMSData do 
  begin 
  dwSize := sizeof( RASDIALPARAMS );//结构大小 
  szEntryName := '163';//指定拨号连接的名称 
  szUserName := 'MyName';//指定用户名称 
  szPassword := 'MyPassword';//指定用户密码 
  szDomain := 'MyDomain';//指定域名 
  szCallbackNumber := '';//指定回叫号码 
  szPhoneNumber := '';//指定拨号号码 
  end; 
   
  //用指定的拨号参数拨号，采用同步拨号方式 
  dwResult := RasDial( NIL,'',@RASDIALPARAMSData,0,NIL,RasCon ); 
   
  if dwResult <> 0 then //设置指定拨号连接的拨号参数失败 
  memo1.lines.add( '用'+StrPAS(RASDIALPARAMSData.szEntryName )+'拨号失败：' 
  + GetRasError( dwResult )) 
  else 
  memo1.lines.add( '用'+StrPAS(RASDIALPARAMSData.szEntryName )+'拨号成功！' ); 
  end; 
   
  　　２、挂断指定的拨号连接 
  　　　　挂断拨号连接的RasAPI函数为RasHangUp，其函数原型为： 
  function RasHangUp( 
  hRasConn : DWORD//要挂断的拨号连接的句柄 
  ) : DWORD; stdcall; 
  function RasHangUp;external RasApiDll name 'RasHangUpA'; 
  　　　　函数返回值为0表示执行成功；否则为错误代码． 
  　　　　下面是一个应用例子，挂断由RasDial建立的拨号连接． 
   
  //挂断由RasDial建立的拨号连接 
  dwResult := RasHangUp( RasCon ); 
  if dwResult <> 0 then //挂断失败 
  memo1.lines.add( '挂断失败：' + GetRasError( dwResult )) 
  else 
  memo1.lines.add( '挂断成功！'); 
   
  五、获取当前活动的连接及其连接状态 
  　　１、获取当前活动的连接 
  　　　　获取当前活动的连接的RasAPI函数为RasEnumConnections

Answer 4

RAS.pas 单元 太大，不好贴上来！留下你的email我发给你～

Answer 5

TO CsdnKey(函数): 我的邮箱：[email protected]   ，谢谢.