控制面板大全 B!+c74
;{I9S'
在程序运行过程中启动控制面板的各个设置功能: @}q, ';H7
var x:cardinal; g@'XmT="_
begin 0cmd +`
{启动控制面板} /l7 %x.
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9); 4#(/{6J
{辅助选项 属性-键盘} QP'sS*saJ
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9); ?6_]^:s
{辅助选项 属性-声音} &oMEz 0
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9); uj3`M9
{辅助选项 属性-显示} #2^0z`-\_z
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3',9); F${sEtH
{辅助选项 属性-鼠标} :gsRJy1
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4',9); |mH* I
{辅助选项 属性-常规} 2Z{?3mAb;
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5',9); ,WE2.MWR
{添加/删除程序 属性-安装/卸载} `/WxEu3
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1',9); C|]c#X2t3
{添加/删除程序 属性-Windows安装程序} ->I.D?p
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,2',9); f6I)c$]Q
{添加/删除程序 属性-启动盘} 3Ws (],Q
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,3',9); ~u*4k:2H
{显示 属性-背景} [k
7HLn)
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0',9); 8U@f/P
{显示 属性-屏幕保护程序} t`6]eRR
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1',9); $ #!oejLD
{显示 属性-外观} gOg7:VPG
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2',9); ]C^ #)7
{显示 属性-设置} CG%bZco((
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3',9); mPA)G,^
{Internet 属性-常规} GSRf/::I}4
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0',9); !PIg,
{Internet 属性-安全} 5 SQ!^1R 9
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,1',9); 0gqV>:
{Internet 属性-内容} sO) H#G
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,2',9); |}d^lQ9
{Internet 属性-连接} B*G]Dr)e
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,3',9); cWQJ9.:7
{Internet 属性-程序} 9po=[{Bp
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,4',9); {e&fB