控制面板大全 Hz]4AS
Dh&:-
在程序运行过程中启动控制面板的各个设置功能: KbwTj*k[
var x:cardinal; llHc=&y#
begin kRN|TDx(
{启动控制面板} 9u?)vR[@e
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9); }z%OnP
{辅助选项 属性-键盘} selP=Q!
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9); rb:<N%*t
{辅助选项 属性-声音} 1KTabj/C
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9); |jahpji6
{辅助选项 属性-显示} !Tn0M;
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3',9); qnq%mwDeD
{辅助选项 属性-鼠标}
mW~i
c
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4',9); y@o9~?M
{辅助选项 属性-常规} QFW0KD`5
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5',9); w0Fwd
{添加/删除程序 属性-安装/卸载} Yzj%{fkh
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1',9); ,8c
dXt
{添加/删除程序 属性-Windows安装程序} =5y`(0 I`U
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,2',9); p-5Pas
{添加/删除程序 属性-启动盘} 9W1;Kb|Z<
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,3',9); G;(onJz
{显示 属性-背景} 5Noe/6
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0',9); m<FF$pTT
{显示 属性-屏幕保护程序} ${hyNt
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1',9); R9tckRG#
{显示 属性-外观} |H ^w>mk
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2',9); !}>eo2$r^
{显示 属性-设置} !uWxRpT,7
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3',9); -|m$YrzG
{Internet 属性-常规} #_.g2 Y
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0',9); d?:`n9`
{Internet 属性-安全} r0F_;
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,1',9); RVc)")
hQj
{Internet 属性-内容} 9t{|_G
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,2',9); }FPM-M3y
{Internet 属性-连接} {UB%(E[Mr
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,3',9); HUj+-
{Internet 属性-程序} [O^}rUqq
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,4',9); N0=-7wMk(Z
{Internet 属性-高级} [O=W>l
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,5',9); p QluGIX0V
{区域设置 属性-区域设置} z*6$&sS\>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,0',9); W`#gpi)7N
{区域设置 属性-数字} `$J'UXtGc
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,1',9); R=`U4Ml;
{区域设置 属性-货币} H}vn$$
O
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,2',9); B ,V(LTE
{区域设置 属性-时间} 8)N0S% B
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,3',9); 5B%w]n
{区域设置 属性-日期} /sy-;JDnsu
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,4',9); YMi/uy
{游戏控制器-一般} z~F37]W3[
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,0',9); Iq+2mQi*/k
{游戏控制器-高级} x'@W=P 7
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,1',9); <z,+Eg
{鼠标 属性} >yX/+p_
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Main.cpl',9); FIH@2zA
{多媒体 属性-音频} bn$)f6%
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,0',9); ze&#i6S
{多媒体 属性-视频} > 84e`aGE
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,1',9);
R6 ;jY/*#
{多媒体 属性-MIDI} \UOm]z
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,2',9); *\D}eBd|
{多媒体 属性-CD音乐} jDkm:X}:
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,3',9); GSP?X$E
{多媒体 属性-设备} 012Lwd
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,4',9); Y.7}
{调制解调器 属性} a~,Kz\Tt
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Modem.cpl',9); ]
@ufV
{网络} ^CUSlnB\(
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Netcpl.cpl',9); K!p,x;YX
{密码 属性} d,UCH
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Password.cpl',9); ^}J<)}Q
{扫描仪与数字相机 属性} (Ux[[
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sticpl.cpl',9); \0nlPXk?G
{系统 属性-常规} SnW7x
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,0',9); e gI&epN
{系统 属性-设备管理器} B[CA
5Ry
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,1',9); )9B:Y;>)
{系统 属性-硬件配置文件} zd.'*Dj
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,2',9); aZ6'|S;
{系统 属性-性能} cAb>2]M5V
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,3',9); "kU]
{日期/时间 属性} $Zxt&a
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',9); gX^ PSsp
{电源管理 属性} l[oe*aYN7
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Powercfg.cpl',9); wG8
nw;
{拨号属性} |NJ}F@t/5
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Telephon.cpl',9); IXWQ)
,:UX<6l
R
-9d%+O~v6~
将图表变为真彩色 f!x[ln<
HKEY——CURRENT——USER /OG zt
Control Panel '#q4Bc1
Control Panel /P:EWUf'
windowmetrics 新建字符串值 SHELL ICON BPP “16”