调用控制面板(100分)

各位大哥，<br>&nbsp; &nbsp; &nbsp; &nbsp;你们好！<br>&nbsp; &nbsp; &nbsp; &nbsp; 小弟刚接触，请问调用window中的控柱面板中时钟，以及各个属性怎样编写程序，<br>请各位大哥指点一下。

抄的<br>关于控制面板我可以来解决：首先再主菜单中建一‘控制面板’项，在它下面在把‘日期/时间 ’，<br>‘拨号’，‘电源管理’ 。。。。。。 设为子菜单,每个子菜单的onclick事件如下：<br>begin<br>{启动控制面板}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL',9);<br>{辅助选项 属性-键盘}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9);<br>{辅助选项 属性-声音}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9);<br>{辅助选项 属性-显示}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3',9);<br>{辅助选项 属性-鼠标}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4',9);<br>{辅助选项 属性-常规}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5',9);<br>{添加/删除程序 属性-安装/卸载}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1',9);<br>{添加/删除程序 属性-Windows安装程序}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,2',9);<br>{添加/删除程序 属性-启动盘}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,3',9);<br>{显示 属性-背景}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0',9);<br>{显示 属性-屏幕保护程序}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1',9);<br>{显示 属性-外观}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2',9);<br>{显示 属性-设置}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3',9);<br>{Internet 属性-常规}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0',9);<br>{Internet 属性-安全}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,1',9);<br>{Internet 属性-内容}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,2',9);<br>{Internet 属性-连接}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,3',9);<br>{Internet 属性-程序}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,4',9);<br>{Internet 属性-高级}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,5',9);<br>{区域设置 属性-区域设置}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,0',9);<br>{区域设置 属性-数字}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,1',9);<br>{区域设置 属性-货币}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,2',9);<br>{区域设置 属性-时间}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,3',9);<br>{区域设置 属性-日期}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,4',9);<br>{游戏控制器-一般}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,1',9);<br>{鼠标 属性}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Main.cpl',9);<br>{多媒体 属性-音频}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,0',9);<br>{多媒体 属性-视频}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,1',9);<br>{多媒体 属性-MIDI}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,2',9);<br>{多媒体 属性-CD音乐}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,3',9);<br>{多媒体 属性-设备}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,4',9);<br>{调制解调器 属性}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Modem.cpl',9);<br>{网络}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Netcpl.cpl',9);<br>{密码 属性}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Password.cpl',9);<br>{扫描仪与数字相机 属性}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Sticpl.cpl',9);<br>{系统 属性-常规}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,0',9);<br>{系统 属性-设备管理器}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,1',9);<br>{系统 属性-硬件配置文件}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,2',9);<br>{系统 属性-性能}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,3',9);<br>{日期/时间 属性}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',9);<br>{电源管理 属性}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Powercfg.cpl',9);<br>{拨号属性}<br>winexec('rundll32.exe shell32.dll,Control_RunDLL Telephon.cpl',9);<br>{----------------------调用错误----------------------}<br>end;<br>不要忘了在uses中加入shellapi!!

控制面板程序为系统目录下的control.exe<br>调用次control程序是，可以使用如下参数：<br>control [CPL 文件] [,组件编号] [,页码]<br><br>eg 变更时间、日期及时区数据<br>&nbsp; control timedate.cpl,@0,1<br>设置键盘速度、输入法及键盘类型<br>&nbsp; control main.cpl,@1<br>注意每个参数及逗号之间不能留有任何空格。<br>至于哪个CPL文件可用，只要到你的系统目录下将所有的CPL文件列出即可得知。<br><br>微软的调用方法，<br>rudll32.exe shell32.dll,Control_RunDLL [CPL 文件] [,组件编号] [,页码]<br>注意Control_RunDLL的大小写不能有任何错误。<br><br>具体你可以参考 陈宽达写的Delphi深度历险，上面有一章是介绍编写自己的控制面板的。<br><br>

接受答案了.