磁盘类型的检测是很有意义的。比如,安装程序要懂得用户所指定的磁盘是否为硬盘,不是则予以提示;又比如,要自动播放光盘中的音频文件或影视文件,首先得判断光驱的驱动器号才得以实现。那么,如何检测磁盘的类型呢?
Windows的GetDriveType函数就是为获取磁盘类型而准备的,利用它可以轻而易举地得到我们所需的磁盘类型信息。以下以一个简单的例子展示获取压缩盘以外的常规磁盘的类型这一有用的技术:
OptionExplicit
'申明API函数
PrivateDeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLong
PrivateSubForm_Load()
'声明变量
DimDrvNumAsSingle
DimdrvNameAsString
DimDrvTypeAsInteger
DimiAsInteger
Me.AutoRedraw=True
Drive1.Visible=Fa...[ 查看全文 ]