如何用ShellExecult打开控制面板里的 网络和拨号连接 呢???? 急,谢谢了,大家 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 windows\system32下有个ncpa.cpl 文件,你打开看看 var x:cardinal;begin{启动控制面板}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9);{辅助选项 属性-键盘}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9);{辅助选项 属性-声音}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9);{辅助选项 属性-显示}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3',9);{辅助选项 属性-鼠标}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4',9);{辅助选项 属性-常规}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5',9);{添加/删除程序 属性-安装/卸载}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1',9);{添加/删除程序 属性-Windows安装程序}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,2',9);{添加/删除程序 属性-启动盘}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,3',9);{显示 属性-背景}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0',9);{显示 属性-屏幕保护程序}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1',9);{显示 属性-外观}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2',9);{显示 属性-设置}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3',9);{Internet 属性-常规}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0',9);{Internet 属性-安全}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,1',9);{Internet 属性-内容}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,2',9);{Internet 属性-连接}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,3',9);{Internet 属性-程序}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,4',9);{Internet 属性-高级}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,5',9);{区域设置 属性-区域设置}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,0',9);{区域设置 属性-数字}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,1',9);{区域设置 属性-货币}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,2',9);{区域设置 属性-时间}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,3',9);{区域设置 属性-日期}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,4',9);{游戏控制器-一般}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,0',9);{游戏控制器-高级}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,1',9);{鼠标 属性}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Main.cpl',9);{多媒体 属性-音频}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,0',9);{多媒体 属性-视频}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,1',9);{多媒体 属性-MIDI}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,2',9);{多媒体 属性-CD音乐}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,3',9);{多媒体 属性-设备}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,4',9);{调制解调器 属性}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Modem.cpl',9);{网络}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Ncpa.cpl',9);{密码 属性}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Password.cpl',9);{扫描仪与数字相机 属性}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sticpl.cpl',9);{系统 属性-常规}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,0',9);{系统 属性-设备管理器}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,1',9);{系统 属性-硬件配置文件}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,2',9);{系统 属性-性能}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,3',9);{日期/时间 属性}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',9);{电源管理 属性}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Powercfg.cpl',9);{拨号属性}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Telephon.cpl',9);{----------------------调用错误----------------------}if x=0 then messagebox(0,'程序超出内存','错误',0);if x=ERROR_BAD_FORMAT then messagebox(0,'该程序非一个合法的Win32.EXE程序).','错误',0);if x=ERROR_FILE_NOT_FOUND then messagebox(0,'指定文件没找到','错误',0);if x=ERROR_PATH_NOT_FOUND then messagebox(0,'指定路径没找到','错误',0);end; 被抢先了,用winexec吧,shellexecute不太好使 郁闷一句就够用了 shellExecute(handle,nil,'c:\winnt\system32\ncpa.cpl',nil,nil,SW_SHOWNORMAL); 老大,方法都给你了,你直接找那个“新建连接”对应的文件不就行了?? shellExecute(handle,nil,'c:\winnt\system32\ncpa.cpl',nil,nil,SW_SHOWNORMAL);用你找到的文件地址,替换 'c:\winnt\system32\ncpa.cpl' 如何保存数据,前一条数据不被覆盖(即所有数据都存在) 用等号(=) 判断和StrComp 函数判断 字符串相等有什么区别? 关于Stringgrid的,谢谢 如何更改文本文件中指定行的数据? 求救!F1book的savefiledlg取消后报错 能否判断Tstringlist已经free? 数据流的完全使用手册!希望各位补充! 请问word 2000 里的密码可以破吗?谢谢 lyc800105(小新),dengzhen(夜深独座)进来拿分儿,:) 请问如何实现针对宽带网的计费 怎样在程序中捕捉鼠标和键盘不操作的时间? 如何在动态链接库里动态创建控件!!!
ncpa.cpl 文件,你打开看看
begin
{启动控制面板}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9);
{辅助选项 属性-键盘}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9);
{辅助选项 属性-声音}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9);
{辅助选项 属性-显示}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3',9);
{辅助选项 属性-鼠标}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4',9);
{辅助选项 属性-常规}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5',9);
{添加/删除程序 属性-安装/卸载}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1',9);
{添加/删除程序 属性-Windows安装程序}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,2',9);
{添加/删除程序 属性-启动盘}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,3',9);
{显示 属性-背景}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0',9);
{显示 属性-屏幕保护程序}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1',9);
{显示 属性-外观}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2',9);
{显示 属性-设置}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3',9);
{Internet 属性-常规}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0',9);
{Internet 属性-安全}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,1',9);
{Internet 属性-内容}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,2',9);
{Internet 属性-连接}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,3',9);
{Internet 属性-程序}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,4',9);
{Internet 属性-高级}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,5',9);
{区域设置 属性-区域设置}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,0',9);
{区域设置 属性-数字}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,1',9);
{区域设置 属性-货币}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,2',9);
{区域设置 属性-时间}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,3',9);
{区域设置 属性-日期}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,4',9);
{游戏控制器-一般}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,0',9);
{游戏控制器-高级}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,1',9);
{鼠标 属性}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Main.cpl',9);
{多媒体 属性-音频}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,0',9);
{多媒体 属性-视频}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,1',9);
{多媒体 属性-MIDI}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,2',9);
{多媒体 属性-CD音乐}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,3',9);
{多媒体 属性-设备}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,4',9);
{调制解调器 属性}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Modem.cpl',9);
{网络}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Ncpa.cpl',9);
{密码 属性}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Password.cpl',9);
{扫描仪与数字相机 属性}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sticpl.cpl',9);
{系统 属性-常规}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,0',9);
{系统 属性-设备管理器}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,1',9);
{系统 属性-硬件配置文件}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,2',9);
{系统 属性-性能}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,3',9);
{日期/时间 属性}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',9);
{电源管理 属性}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Powercfg.cpl',9);
{拨号属性}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Telephon.cpl',9);
{----------------------调用错误----------------------}
if x=0 then messagebox(0,'程序超出内存','错误',0);
if x=ERROR_BAD_FORMAT then messagebox(0,'该程序非一个合法的Win32.EXE程序).','错误',0);
if x=ERROR_FILE_NOT_FOUND then messagebox(0,'指定文件没找到','错误',0);
if x=ERROR_PATH_NOT_FOUND then messagebox(0,'指定路径没找到','错误',0);
end;
一句就够用了 shellExecute(handle,nil,'c:\winnt\system32\ncpa.cpl',nil,nil,SW_SHOWNORMAL);
shellExecute(handle,nil,'c:\winnt\system32\ncpa.cpl',nil,nil,SW_SHOWNORMAL);
用你找到的文件地址,替换 'c:\winnt\system32\ncpa.cpl'