[팁] 제어판의 프로그램들을 실행

{
    Filenames of some Applets:
    Dateinamen einiger Applets:

    Access.cpl : 내게 필요한 옵션
    Appwiz.cpl : 프로그램 추가/제거
    Desk.cpl : 디스플레이 등록정보
    Inetcpl.cpl : 인터넷 등록정보
    Intl.cpl : 국가및 언어 옵션
    Joy.cpl : 게임 컨트롤러
    Main.cpl : 마우스 등록정보
    Mmsys.cpl : 사운드및 오디오 장치 등록정보
    Modem.cpl : 모뎀 등록정보
    ncpa.cpl : 네트워크 연결
    Odbccp32.cpl : 32 bit ODBC 데이타 원본 관리자
    powercfg.cpl : 전원옵션 등록정보
    Sysdm.cpl : 시스템 등록정보
    timedate.cpl : 날짜및 시간 등록정보
}

{실행 함수}
function RunControlPanelApplet(sAppletFileName : string) : integer;
begin
    Result := WinExec(PChar('rundll32.exe shell32.dll,'+'Control_RunDLL '+sAppletFileName),
    SW_SHOWNORMAL);
end;

{실행예제 : 날짜및 시간등록정보 실행}
procedure TfrmMain.laDateDblClick(Sender: TObject);
begin
    RunControlPanelApplet('timedate.cpl');
end;