Delphi Call Control Panel Project Encyclopedia

Do you want to start the various settings in the Control Panel while the program is running, using the following methods:

var x:cardinal;
Begin
{Start Control Panel}
X:=winexec (rundll32.exe shell32.dll,control_rundll,9); {Secondary Option Properties-keyboard}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1,9);
{Secondary option Properties-sound}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2,9);
{Secondary option Properties-display}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3,9);
{Secondary option Properties-mouse}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4,9);
{Secondary Option Properties-General}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5,9);
{Add/Remove program properties-Install/uninstall}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1,9);
{Add/Remove program Properties-windows Installer}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2,9);
{Add/Remove Program properties-Startup Disk}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3,9);
{Display Properties-background}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0,9);
{Display Properties-screen saver}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1,9);
{Display Properties-appearance}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2,9);
{Display Properties-settings}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3,9);
{Internet Properties-general}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0,9);
{Internet Properties-security}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,1,9);
{Internet Properties-content}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,2,9);
{Internet Properties-connection}
X:=winexec (rundll32.exe shell32., Control_RunDLL inetcpl.cpl,,3,9);
{Internet Properties-Programs}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4,9);
{Internet Properties-advanced}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,5,9);
{Regional Settings Properties-Regional Settings}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0,9);
{Locale Property-number}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1,9);
{Regional Settings properties-currency}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2,9);
{Regional Settings Properties-time}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3,9);
{Regional Settings properties-date}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4,9);
{Game controller-general}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL joy.cpl,,0,9);
{Game controller-advanced}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL joy.cpl,,1,9);
{Mouse Properties}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL main.cpl,9);
{Multimedia Properties-audio}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0,9);
{Multimedia Properties-video}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1,9);
{Multimedia Properties-midi}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2,9);
{Multimedia Properties-CD music}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3,9);
{Multimedia Properties-device}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4,9);
{Modem Properties}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL modem.cpl,9);
Network
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl,9);
{Password Properties}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL password.cpl,9);
{Scanner and digital camera properties}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL sticpl.cpl,9);
{System Properties-general}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0,9);
{System Properties-Device Manager}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1,9);
{System Properties-hardware configuration file}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2,9);
{System Properties-performance}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3,9);
{Date/Time property}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,9);
{Power Management Properties}
X:=winexec (rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl,9);
{Dialing Properties}
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;