如何用DeviceIoControl检测一台机器上是否安装有软驱，最好有代码，很好着急

[myckd]

期待

[mn_lh]

你可以用GetLogicalDriveString更方便

[prog_st]

______________参考_________________

HOWTO: Use Visual Basic to Locate CD-ROM Drives

Q291575


--------------------------------------------------------------------------------
The information in this article applies to:

Microsoft Visual Basic Professional Edition for Windows, versions 5.0, 6.0
Microsoft Visual Basic Enterprise Edition for Windows, versions 5.0, 6.0

--------------------------------------------------------------------------------


SUMMARY
You can find the drive letter of any CD-ROM drive on a local computer by using the Win32 API from Visual Basic. This can be useful during scenarios such as program setup and querying a user for media.



MORE INFORMATION
You can use the GetDriveType API to determine the type of drive referenced by a drive letter. By combining this API with a list of the active drive letters on a computer, you can search for CD-ROM drives available on that computer. Note that the API does not distinguish between types of CD-ROM drives, so for example, a DVD drive is considered a CD-ROM drive.

The following code sample demonstrates how to search for local CD-ROM drives by using Visual Basic.

Sample Code
Start a new Visual Basic Standard EXE project. Form1 is created by default.


Add a new command button (Command1) to Form1.


Add the following code to Form1's code window:



Option Explicit

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long

Private Declare Function GetLogicalDriveStrings Lib "kernel32" _
Alias "GetLogicalDriveStringsA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Const DRIVE_CDROM& = 5

Public Function GetDriveStrings() As String
' Wrapper for calling the GetLogicalDriveStrings api

Dim result As Long ' Result of our API calls
Dim strDrives As String ' String to pass to API call
Dim lenStrDrives As Long ' Length of the above string

' Call GetLogicalDriveStrings with a buffer size of zero to
' find out how large our stringbuffer needs to be
result = GetLogicalDriveStrings(0, strDrives)

strDrives = String(result, 0)
lenStrDrives = result

' Call again with our new buffer
result = GetLogicalDriveStrings(lenStrDrives, strDrives)

If result = 0 Then
' There was some error calling the API
' Pass back an empty string
' NOTE - TODO: Implement proper error handling here
GetDriveStrings = ""
Else
GetDriveStrings = strDrives
End If
End Function

Private Sub Command1_Click()
Dim strDrives As String

' Find out what drives we have on this machine
strDrives = GetDriveStrings()

If strDrives = "" Then
' No drives were found
MsgBox "No Drives were found!", vbCritical
Else
' Walk through the string and check the type of each drive
' displaying any cd-rom drives we find
Dim pos As Long
Dim drive As String
Dim drivetype As Long

pos = 1

Do While Not Mid$(strDrives, pos, 1) = Chr(0)
drive = Mid$(strDrives, pos, 3)
pos = pos + 4
drivetype = GetDriveType(drive)
If drivetype = DRIVE_CDROM Then
MsgBox "CD-ROM found at drive " & UCase(drive)
End If
Loop
End If
End Sub

Click Run or press the F5 key to run the project.


Result: Any CD-ROM drives on the computer are displayed by drive letter in a message box.



REFERENCES
For additional information, click the article numbers below to view the articles in the Microsoft Knowledge Base:

Q190000 HOWTO: Get Started Programming with the Windows API
Q180766 VBA: Sample Code to Determine CD-ROM Drive Letter
The Visual Basic Programmer's Guide

© Microsoft Corporation 2001, All Rights Reserved.
Contributions by Gray McDonald, Microsoft Corporation


Additional query words: VB CD CDROM Locate Drive Find List

Keywords : kbsample kbAPI kbSDKWin32 kbVBp kbVBp500 kbVBp600 kbGrpDSVB kbDSupport
Issue type : kbhowto
Technology : kbWord600Search


Last Reviewed: March 26, 2001
© 2001 Microsoft Corporation. All rights reserved. Terms of Use.




--------------------------------------------------------------------------------
Send feedback to MSDN.Look here for MSDN Online resources.

[myckd]

这些方法都不管用，如果把软驱拔掉，在BIOS中不禁用软驱的话，照样能的到A为软驱
事实上并没有软驱

[myckd]

gz