用执行外部程序
var x:cardinal;
beginx:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9);

解决方案 »

  1.   

    我用的是 Delphi 格式定义,
    你在VC中是一样的,用执行外部程序来执行 
      

  2.   

    你在开始菜单里一试就知道了,在运行里写上
    rundll32.exe shell32.dll,Control_RunDLL
    一运行控制面板就出来了
      

  3.   

    调用键盘这样 
    x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9);
    看好,有两个逗号
      

  4.   

    to futurelife:
    我用你的方法打开的是鼠标,我的平台是98,用的是main.cpl.
    您能告诉我cpl调用的格式吗?键盘肯定也在main.cpl里,但我试了
    半天也没试出来.
      

  5.   

    试试这两个
    WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL access.cpl,,1',SW_SHOWNORMAL);
    WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL access.cpl,,4',SW_SHOWNORMAL);