如何删除硬件？

Question

右击“我的电脑”，然后选择“设备管理器”（WINDOWS98，如WINDOWS2000，找找看，可以找到的），然后选择“打印机”前的“+”号，然后把下拉菜单里的打印机删掉，然后拔掉打印机。
不知道可不可以？我以前删除声卡的时候就这样的！

Answer 1

to:： tony1980(大漠孤狼) 
谢谢你的回答，你可能没懂我的意思，我是要用程序实现!

Answer 2

在穸体上加入命令钮，采用类似调用控制面板的方法实现。
  Select Case Index
    Case 0  '调用“添加新硬件”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus)
    Case 1  '调用“添加删除程序”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", vbNormalFocus)
    Case 2  '调用“日期/时间”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)
    Case 3  '调用“显示”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)
    Case 4  '调用“IE属性”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0", vbNormalFocus)
    Case 5  '调用“游戏杆”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)
    Case 6  '调用“键盘”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)
    Case 7  '调用“调制解调器”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)
    Case 8  '调用“鼠标”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)
    Case 9  '调用“多媒体”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0", vbNormalFocus)
    Case 10  '调用“网络”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus)
    Case 11  '调用“密码”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", vbNormalFocus)
    Case 12  '调用“区域设置”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", vbNormalFocus)
    Case 13  '调用“声音”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", vbNormalFocus)
    Case 14  '调用“系统”
      i = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", vbNormalFocus)
  End Select

Answer 3

to:WYZSC(007) 就象  mjcom(风声水起) 说得一样，要在程序中实现，不要在控制面板中选择，这个真的很难吗？这个项目看来要改方案了：(，唉，大侠们，help me!!

Answer 4

'打印机是否存在的判断方法，在列表中为存在。
    Dim i As Integer
    For i = 0 To Printers.Count - 1
        List1.AddItem Printers(i).DeviceName & "," & _
                      Printers(i).DriverName & "," & _
                      Printers(i).Port
    Next

Answer 5

删除打印机的方法我不会，不知是否可用设置系统默认打印机的方法实现。
win旧版为改WIN.INI文件，win新版为改注册表。

Answer 6

for i=0 to printers(i)-1
  combo1.additem printers(i).devicename?"[" & printers(i).drivername & "]"
next
试一下kill printers(i).devicename

Answer 7

printers是什么东东，怎么调用？

Answer 8

to iamsoloist(Soloist):
printers对象是系统里头安装的打印机的集合.

Answer 9

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_PERFORMANCE_DATA = &H80000004
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_DYN_DATA = &H80000006
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As LongPrivate Sub Command1_Click()
ret = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows NT\CurrentVersion\Print\Printers\Epson LQ-2180C", hKey)
If ret = 0 Then
RegDeleteKey hKey, "DsSpooler"
RegDeleteKey hKey, "DsDriver"
RegDeleteKey hKey, "PnPData"
RegDeleteKey hKey, "PrinterDriverData"
MsgBox "OK"
End If
ret = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows NT\CurrentVersion\Print\Printers", hKey)
If ret = 0 Then
RegDeleteKey hKey, "Epson LQ-2180C"
MsgBox "OK"
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
RegCloseKey hKey
End Sub
注意：要把 Epson LQ-2180C 改為你的打印機的名稱，執行完後要重啟
我用的是WIN2000
其它的系統我沒試過
設計思路其實就是在注冊表中把打印機刪除