VB5如何取得CDROM的盘符?
在BAS的Module中,宣告以下api:
Public Declare Function GetLogicalDriveStrings Lib "kernel32" Alias
"GetLogicalDriveStringsA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long
Public Const DRIVE_CDROM = 5
Declare Function GetVolumeInformation Lib "kernel32" Alias
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long,
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long
在表单上,插入一个名为cmdCheck的CommandButton,以及lblCDInfo的Label控制项,按下
cmdCheck时,让CD-ROM代码显示在lblCDInfo中:
Private Sub cmdCheck_Click()
'取得所有磁碟机的代码
Dim lngRetVal As Long
Dim lngDriveType As Long
Dim strAllDrivers As String
Dim strJustOneDrive As String
Dim strCDLabel As String
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余3页未读,立即下载