发信人: hater()
整理人: winsy(2003-03-05 15:54:34), 站内信件
|
【 在 michael_fang (Ricky) 的大作中提到: 】
API函数GetDriveType用于判断一个磁盘驱动器的类型，GetLogicalDriveString
获取一个字串，其中包含了当前所有逻辑驱动器的根驱动器路径。所定义的常量
是GetDriveType的返值，另外为0表示不能识别，为1表示根目录路径不存在。无
CDROM时FindCDROM返回空串。
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTy
peA" _
(ByVal nDrive As String) As Long
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _
"GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer
As String) As Long
Private Const DRIVE_REMOVABLE = 2
Private Const DRIVE_FIXED = 3
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_CDROM = 5
Private Const DRIVE_RAMDISK = 6
Private Function FindCDROM() As String
Dim r As Long
Dim allDrives As String, JustOneDrive As String
Dim pos As Integer
Dim DriveType As Long
allDrives = Space(64)
r = GetLogicalDriveStrings(Len(allDrives), allDrives)
allDrives = Left$(allDrives, r)
Do
pos = InStr(allDrives, Chr$(0))
If pos > 0 Then
JustOneDrive = Left$(allDrives, pos)
allDrives = Mid$(allDrives, pos + 1, Len(allDrives))
DriveType = GetDriveType(JustOneDrive)
If DriveType = DRIVE_CDROM Then
FindCDROM = JustOneDrive
Exit Do
End If
End If
Loop Until allDrives = "" Or DriveType = DRIVE_CDROM
FindCDROM = ""
End Function
--
曾经有一份真诚的爱情放在我面前，我没有珍惜，等我失去的时候我才后悔莫及，人世间最痛苦的事莫过于此。如果上天能够给我一个再来一次的机会，我会对那个女孩说三个字：我爱你。
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.106.92.35]
|
|