unit open_cpl;
interface
function RunControlPanelApplet( sAppletFileName : string) : integer;
implementation
uses Windows;
function RunControlPanelApplet( sAppletFileName : string) : integer;
begin
Result := WinExec( PChar('rundll32.exe shell32.dll,'+ 'Control_RunDLL '+sAppletFileName), SW_SHOWNORMAL);
end;
end.
access.cpl: Accessibility Properties 
appwiz.cpl: Add/Remove Programs Properties 
desk.cpl: Display Properties 
intl.cpl: Regional Settings Properties 
joy.cpl: Joystick Properties 
main.cpl: Mouse Properties 
mmsys.cpl: Multimedia Properties 
modem.cpl: Modems Properties 
sysdm.cpl: System Properties 
timedate.cpl: Time/Date Properties