如何在DELPHI程序中调Windos的拨号程序? 不好意思,是windows中的拨号程序 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在Delphi程序中可以用如下代码实现拨号上网: winexec('rundll32.exe rnaui.dll,RnaDial 163',SW_SHOWNORMAL); 其中字符串中的最后一个参数“163”为拨号连接的名称。 下面是一个用指定的拨号连接拨号上网的例子.{ 用指定的拨号连接拨号上网 }procedure TForm1.Button4Click(Sender: TObject);varstrDialName : string;beginstrDialName := '163';//拨号连接的名称设为163memo1.lines.add( '******************用拨号连接'+ strDialName+'实现拨号上网****************');winexec( PChar('rundll32.exe rnaui.dll,RnaDial ' + strDialName),SW_SHOWNORMAL);end; var iReturn:Integer;begin iReturn:=Winexec('rundll32.exe rnaui.dll,rnadial '+'//拨号名',9); case iReturn of 0:ShowMessage('Not Enough Memory'); ERROR_BAD_FORMAT:ShowMessage('Not Win32 Program'); ERROR_FILE_NOT_FOUND:ShowMessage('Don't find Program'); ERROR_PATH_NOT_FOUND:ShowMessage('Path Error');end; http://www.csdn.net/expert/topic/168/168985.shtm clientdataset 无法Insert into 后更新 Dephi需要包 delphi7 报错'4 ' is not valid integer value 用Canvas画图时为什么会闪烁,(只画一条线) 关于DBGRID的一个问题,请教高手 [100分] access数据库对文本字段分类求和. 打开方式 SQLSERVER中字段名是英文字符时带来的问题 求VSS6.0的下载地址 怎样让dbgrid对数据库的数据即时更新? 关于远程登录的问题 现在是该学delphi5还是应该学delphi6呢?
在Delphi程序中可以用如下代码实现拨号上网:
winexec('rundll32.exe rnaui.dll,RnaDial 163',SW_SHOWNORMAL);
其中字符串中的最后一个参数“163”为拨号连接的名称。 下面是一个用指定的拨号连接拨号上网的例子.
{ 用指定的拨号连接拨号上网 }
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;
iReturn:Integer;
begin
iReturn:=Winexec('rundll32.exe rnaui.dll,rnadial '+'//拨号名',9);
case iReturn of
0:ShowMessage('Not Enough Memory');
ERROR_BAD_FORMAT:ShowMessage('Not Win32 Program');
ERROR_FILE_NOT_FOUND:ShowMessage('Don't find Program');
ERROR_PATH_NOT_FOUND:ShowMessage('Path Error');
end;