检测磁盘类型的信息

2016-02-19 14:24 8 1 收藏

今天给大家分享的是由图老师小编精心为您推荐的检测磁盘类型的信息,喜欢的朋友可以分享一下,也算是给小编一份支持,大家都不容易啊!

【 tulaoshi.com - 编程语言 】

磁盘类型的检测是很有意义的。比如,安装程序要懂得用户所指定的磁盘是否为硬盘,不是则予以提示;又比如,要自动播放光盘中的音频文件或影视文件,首先得判断光驱的驱动器号才得以实现。那么,如何检测磁盘的类型呢?
  Windows的GetDriveType函数就是为获取磁盘类型而准备的,利用它可以轻而易举地得到我们所需的磁盘类型信息。以下以一个简单的例子展示获取压缩盘以外的常规磁盘的类型这一有用的技术:
  
  OptionExplicit
  
  '申明API函数
  PrivateDeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLong
  
  PrivateSubForm_Load()
  
  '声明变量
  DimDrvNumAsSingle
  DimdrvNameAsString
  DimDrvTypeAsInteger
  DimiAsInteger
  
  Me.AutoRedraw=True
  Drive1.Visible=False
  
  '获取所有常规磁盘信息——
  DrvNum=Asc("a")-1
  Fori=0ToDrive1.ListCount
  DrvNum=DrvNum 1
  drvName=Chr(DrvNum) ":"
  DrvType=GetDriveType(drvName)
  SelectCaseGetDriveType(drvName)
  Case0
  Me.Print"不明" "盘符为:" Trim(UCase(Chr(DrvNum)))
  Case2
  Me.Print"软驱" "盘符为:" Trim(UCase(Chr(DrvNum)))
  Case3
  Me.Print"硬盘" "盘符为:" Trim(UCase(Chr(DrvNum)))
  Case4
  Me.Print"网络盘" "盘符为:" Trim(UCase(Chr(DrvNum)))
  Case5
  Me.Print"光驱" "盘符为:" Trim(UCase(Chr(DrvNum)))
  Case6
  Me.Print"RamDisk" "盘符为:" Trim(UCase(Chr(DrvNum)))
  EndSelect
  Nexti
  
  EndSub->

来源:http://www.tulaoshi.com/n/20160219/1606922.html

延伸阅读
鲁大师为什么硬件信息检测不准确   首先请检查鲁大师是否是最新版本以及完整安装,如果已确认完整安装,请保证鲁大师所在目录没有使用NTFS的加密。 如果提示下载失败,则表示暂时不能连接到该软件的官方网站下载安装包,请首先检查您的机器能正常访问Internet,如果只有某个软件出现这种情况,则可能是该软件的官方网站出了问...
1.你看起来很好吃让有趣的图形化解枯燥的文字 By Ejin 这是一个快速浏览的略读时代,信息过剩,大多数用户对长偏幅的文字都有阅读疲劳,他们正如一群偏食厌食的孩子,如何让他们乐意吞下这送到嘴边的食物呢? 剥皮、挑刺、嚼碎。分行、标识、加重点。正如F型的阅读排版研究只是针对食物的食用性问题在一定程度上解决了有阅读需求的用户的...
反射类所使用的设计模式 System.Reflection 类中最常用的方法都使用统一的模式。Module、Type 和 MemberInfo 类的成员使用下表中所示的设计模式。成员签名说明MyInstance[] FindXxx(filter, filterCriteria)查找并返回经过筛选的类型列表,或者在当前类型没有实现任何匹配筛选器的类型的情况下返回空数组。 例如:Type.FindInterfacesMyInstanc...
标签: FLASH flash教程
poluoluo核心提示:俯视视角游戏常见碰撞检测方法全解(4) 360度不限定移动类型. (3)4或8方向限定移动类型 如果你已经看到这里,我们已经对要制作的东西做了两次分类 第一次将整个游戏分类,取了俯视的一部分 第二次将俯视分类,取了4或8方向限定移动类型(下文简称限定移动) 这样的化整为零是结构化面向过程程序设计和面向对象程序...
win7开机时总显示检测磁盘怎么办   1、首先在键盘按下win+r组合快捷键打开运行对话框,输入regedit,回车进入注册表编辑器(这里涉及修改注册表,以防万一建议事先备份注册表); 2、在注册表中的左侧依次展开并定位到HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlSession Manager项; 3、然后查找到BootExecute这...

经验教程

262

收藏

37
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部