发信人: xkbear()
整理人: cobe(2000-03-12 14:42:02), 站内信件
|
利用API的取驱动器信息实现
能看懂下面的代码吗?不行就 [email protected]
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (By
Val nDrive As String) As Long
Public Const DRIVE_CDROM = 5
Public Const DRIVE_FIXED = 3
Public Const DRIVE_RAMDISK = 6
Public Const DRIVE_REMOTE = 4
Public Const DRIVE_REMOVABLE = 2
Private Sub Drive1_Change()
Select Case GetDriveType(Left(Drive1.Drive, 1) + ":\")
Case DRIVE_REMOVABLE
rtn = "Floppy Drive"
Case DRIVE_FIXED
rtn = "Hard Drive"
Case DRIVE_REMOTE
rtn = "Network Drive"
Case DRIVE_CDROM
rtn = "CD-ROM Drive"
Case DRIVE_RAMDISK
rtn = "RAM Disk"
End Select
Drivetype.Caption = rtn
End Sub
【 在 wang_chun (peter) 的大作中提到: 】
: VB中怎樣判斷用戶是否裝有CD-ROM, 怎樣判斷用戶CD-ROM是哪一個盤符?
--
X.K
仗剑江湖行，出刀非我心；
愿为不平事，热血溅红缨.
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.98.111.221]
|
|