Delphi'de CPL Açmak

nit 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