如何调用控制面板中的[添加/删除程序] ？（望高手指教！）

Shell ("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl")

解决方案 »

  1.   

    给你贴一个全面的。：）注释： Display the Control Panel
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus)注释：Display the Accessibility Properties
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl", vbNormalFocus)注释：Display Add/Remove Programs
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus)注释：Show the Display Settings (Background)
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)注释：Show the Display Settings (Screensaver)
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)注释：Show the Display Settings (Appearance)
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)注释：Show the Display Settings (Settings)
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus)注释：Display Internet Properties
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", vbNormalFocus)注释：Display Regional Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl", vbNormalFocus)注释：Display the Joystick Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)注释：Display the Mouse Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)注释：Display the Keyboard Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)注释：Display Printers
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus)注释：Display Fonts
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus)注释：Display Multimedia Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl", vbNormalFocus)注释：Display Modem Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)注释：Display Dial-Up Networking Wizard (on Win9x)
    Call Shell("rundll32.exe rnaui.dll,RnaWizard", vbNormalFocus)注释：Display System Properties
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl", vbNormalFocus)注释：Run 注释：Add New Hardware注释： Wizard (on Win9x)
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus)注释：Display 注释：Add New Printer注释： Wizard (on Win9x)
    Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus)注释：Display Themes Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL themes.cpl", vbNormalFocus)注释：Display Time/Date Settings
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)
      

  2.   

    Private Sub Command1_Click()
    Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", vbNormalFocus
    End Sub
      

  3.   

    谢谢大家。特别是dragon525() :)