说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB6编程中如何获取硬盘分区信息

HTML文档下载 WORD文档下载 PDF文档下载
VB6编程中如何获取硬盘分区信息

  也许你并不了解硬盘分区信息应该包括些什么,但如果你曾经对硬盘分过区,你或许对此有所了解,在此为各位介绍一个用VB编写的获取硬盘分区信息的程序。在这个程序中,它将详细地告诉你:你的硬盘总容量、分过几个区、每个区的总容量、及现在剩余的可用容量、硬盘分区表为几位(即是FAT32还是FAT16),每个分区是几个字节……怎么样?够完整详细了吧!好的,就让我们一起来看一下吧:
  首先做准备工作:在FORM1上新建二个LABEL(LABEL1和LABEL2)一个COMMAND1命令按钮。然后输入以下代码:
  Private Declare Function GetDriveType Lib
  kernel32“Alias "GetDriveTypeA(ByVal nDrive As String) As Long
  Private Declare Function GetDiskFreeSpace Lib“kernel32" Alias“GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
  Private Const DRIVE_FIXED = 3
  Private Sub Form_Load() '作初始化设置
  COMMAND1.Caption = “测试硬盘"
  Form1.Caption = “测试硬盘程序"
  Label1.WordWrap = True
  Label1.Caption = “"
  Label2.WordWrap = True
  Label2.Caption = “"
  End Sub
  Private Sub COMMAND1_Click()
  Dim DriveNum As Integer
  Dim TempDrive As String
  Dim X As Long
  For DriveNum = 97 To 122 Step 1 '检测从A-Z(盘符)
  TempDrive = GetDriveType(Chr(DriveNum) & “:\")
  Select Case TempDrive '如是3则表示是硬盘,测试你有几个盘
  Case 3: X = GetDiskSpace(Chr(DriveNum)) '调用子程序
  End Select
  Next DriveNum
  End Sub
  Public Function GetDiskSpace(DrivePath As String)
  Dim Drive As String
  Dim SectorsPerCluster As Long
  Dim BytesPerSector As Long
  Dim NumberOfFreeClusters As Long
  Dim TotalClusters As Long
  Dim Check As Integer
  Dim DiskSpace
  Dim diskTotal
  Static AllDiskTotal As Long
  Static NUM As Integer
  NUM = NUM + 1 '分几个区的计算
  Drive = Left(Trim(DrivePath), 1) & “:\"
  Check = GetDiskFreeSpace(Drive, SectorsPerCluster, BytesPerSector, NumberOfFreeClusters, TotalClusters)
  If Check <> 0 Then
  DiskSpace = SectorsPerCluster * BytesPerSector * NumberOfFreeClusters
  '这是一个分区磁盘剩余空间的计算公式
  DiskSpace = Format$(DiskSpace, “###,###") '以规定格式显示,如732,324,231
  diskTotal = SectorsPerCluster * BytesPerSector * TotalClusters
  '这是一个分区磁盘总容量的计算公式
  diskTotal = Format$(diskTotal, “###,###")
  AllDiskTotal = AllDiskTotal + diskTotal '整个硬盘的总容量
  Label1.Caption =“你的硬盘总容量为:” & Format$(AllDiskTotal,“###,###") &个字节,即:” & Left(AllDiskTotal, 1) & . & Mid(AllDiskTotal, 2, 1) &“G,一共分了”& NUM &“个区,其中:"
   Label2.Caption = Label2.Caption & UCase(DrivePath) & “盘的整个容量为:" & diskTotal &“个字节" & ",其剩余磁盘空间为:“& DiskSpace & " 个字节,磁盘已FAT“& SectorsPerCluster & ",每个分区为:“& BytesPerSector & "个字节。“& vbCrLf & vbCrLf”
  End If
  End Function
  OK!现在你运行一下,你是否满意它?
  注:以上程序在中文WINDOWS98,中文VB6.0企业版中调试通过。(上海 季昭君)
用Delphi实现网络驱动器的映射和断开 用Delphi实现远程屏幕抓取 用DELPHI制作留言板 再谈用Delphi程序获取拨号连接的动态IP地址 在DELPHI程序中拨号上网 在DELPHI程序中获取网络资源信息 在Delphi程序中应用IE浏览器控件 在Delphi中调用NetscapeNavigator 在Delphi中使用flash控件 在Delphi中使用IP控件 在程序中动态取得Win95/98网络邻居中工作组及计算机名-Delphi资料 在程序中获取网络资源信息-Delphi资料 自制THyperLink组件-Delphi资料 报表制作技巧(三)-Delphi资料 Delphi数据库开发及统计表格设计 Delphi文本和图形的打印方法 Delphi应用程序中中国式报表的制作 Windows环境下实时列表输出的实现方法-Delphi资料 报表制作技巧(二)-Delphi资料 Delphi编制的程序运行中动态制作报表 报表制作技巧(一)-Delphi资料 如何在WINDOWS中控制打印字体的长宽,而不受限于SIZE 的限制-Delphi资料 也谈为Delphi中数据库报表加网格 用Delphi4的QReport部件生成报表 用Delphi编写打印程序的窍门 用Word做Delphi报表输出工具 在DELPHI 文 本 和 图 形 的 打 印 在Delphi中运用QuickReport实现多栏列印 在打印或打印预览前如何获取报表页数-Delphi资料 自定义快速报表的打印预览窗口-Delphi资料 Delphi 3 图形VCL中Bug修改方案 数据统计问题,请大侠门帮忙!急急急!!! 求解ZModem通讯协议源程序----有谁用过CZModemCore 我也不知道对不对! 最高级的问题?搞一个专业的VC程序员基地~~~~~~ 在研究directshow filter的push模式的兄弟请进 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了 有两个问题,每题40分,马上给分!!!! 如何使用打印机? 在爱情方面谁能做到这一点? 谁有 file cutter v1.4的注册码? 有急用! 搞一个专业的VC程序员基地~~~~~~谁愿意加入????? 最新发现:原来C++Bilder的项目文件(.bpr)是XML格式的! 关于FAT32和NTSF的问题 如何用VC实现Email的发送? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了! 搞一个专业的VC程序员基地~~~~~~需要网页制作高手!! ADO 的用法 m_pRecordset->Fields->GetItem(index)->GetName() 关于CRichEditCtrl的问题之二,取的当前可见行数? 请问在哪里下载IMAIL SERVER???各位帮帮忙!!! 高手请回答,ADO和BDE到底有什么区别,你选择谁?为什么? 高分求教!!!!!!!!!!!!!!!!怎样得到局域网上所有的机器名?(普通WINDOWS网络,用VB?,好象用WNET API可以的) 如何安装com.ibm.bridge2java.*这个包阿? 有人吗???求救! 你也许也会遇到这样的问题? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题!!! 大虾看过来. 一个access表一万条记录,想转到Mysql下(Mysql在Linux下)用什么方法和什么语言来做好? rs.CursorLocation=aduseclient是什么东西? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题! 简单SQL,免费送分! 用ASP如何上传文件,可以用组件。 谁知道怎么改运行中的程序的托盘图标???我用SysTray.ocx不能改? 新手提问,简单题目,大量给分~~~~~~~~~~ 如何使用getdispatch(), 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题!! 关于在一个窗口中的多个数据窗口的问题 扔块砖头, 开个场子 。 ( yeti_lee ) 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了? To: baicolt(五岁的小新是我师傅) 有没有人用过Jcreator 如何在sql server 的查询分析器中用sql语句转到另一台机器上的数据库,同样了sql server的 是不是MSHFlexGrid的bug? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了?? 这个错误类型是什么意思? 如何能够简单的得到昨天的日期? NetBios-SSN是什么? 怎样得到局屿网上所有的计算机名,我想给班里写个局屿网聊天程序,原想用DX8,但DX8好想建立的连接都是C/S模式的。如果能得到机器名就可以用WINSOCK写了(用VB写) 请问诸位有没有什么自动生成源码注释的工具,可以产生函数说明注释和类说明注释 数据库连接这种是什么错误? TStringList *p 定义为一个两维数组怎么做? 在VC++6.0下编程,有什么办法可以获得所有的窗口的句柄??? 1kg棉花和1kg铁块相比谁的密度大?杀人砂仁提问 假如把一亿元兑换成100万张100元人民币,新版人民币的规格是15.5×(单位:cm),那么100万张有多少平方米过程也要 在比例尺是1:3000000的地图上,量得A,B两城之间的距离是2.4厘米.在A,B两城之间有一个中途停靠站C.A,B两城到C站的距离比是7:5.一辆汽车从B城到C站用了0,6小时,求这辆汽车的速度 1T棉花和1T铁块比较,以下说法正确的是A.棉花体积较大,所含物质较多 B.铁块掂着较重,所含物质较多 C.棉花和铁块质量相等,所含物质一样多 南京长江大桥下层的铁路桥全长6700,若把它画在比例尺是1:1000000的地图上,应画几厘米 在比例尺是1:2500000的地图上,量得两市之间的距离是6厘米.如果画在比例尺是3000000分之1的地图上,应画多少厘米? 1kg的棉花和1kg的铁块相比,下列说法正确的是A.棉花所含物质较多 B.棉花和铁块所含物质一样多C.铁块所含物质较多 D.不是同一种物质,无法比较 成本 利润 计算公式比如我进价是8000,我买12000,这个是加了百分之多少?比如我进价是8000,我要卖12000,这个是加了百分之多少? 针织布怎么算幅宽 数学二进制、八进制、十进制、十六进制之间如何转换?这几种数值之是转换是以什么为依据的?怎样转换更方便、简单、快捷?转换关系是什么?(本人急用,请走过、路过的朋友帮帮忙忙吧.本 利润公式有没有成本-售价 针织幅宽1.85M 克重800克,单件用量0.4平方米,件数1000总的用量怎么算 谁能帮我讲解一下数学里的十进制,二进制?我学计算机的,因为要涉及到这方面的问题,我不懂,所以请谁帮我讲解一下,谢``` 商品成本a 税收10% 利润30% 求个公式 把a放进去就得到零售价格 比如烟10块成本.税收10%利润30%我要卖多少?着急~ 甲乙两地相距4.8千米,如果画在比例尺是1:20000的地图上,应画多少厘米? 一根绳子长8/7米,截5次后,剩1/8米,平均每次截几米. 十进制和二进制的数学问题二进制中1101等于十进制的数是? 元要以万元为单位要怎么换算假如100763548.00元要以万元为单位怎么写呀?我都懵了. 60秒等于多少小时? 在比例尺是1:3000000的地图上,量得两地的距离是10厘米,甲乙两车同时从两地相向而行,3小时后相遇.已知甲乙两车的速度比是2:3,求两车的速度各是多少千米? 压力单位 mmAq 怎么读?怎么换算看到一只微压表上有个 mmAq 却不知怎么读.也不知怎样换算.请知道的大侠告诉我,详细点最好. 60小时等于多少秒. 在比例尺是1比3000000的地图上,量的A、B两地距离是10厘米,甲、乙两车同时从两地相地相向而行,3小时后两车相遇.已知甲、乙两车速度比是2比3,求甲、乙两车的速度. 镀金的单位?怎么读?怎么换算? 12亿秒等于多少小时?或等于多少天? 在比例尺是1比3000000的地图上,量的A,b两地的距离是15厘米.甲、乙两车分别从A,B两地同时出发,相向而行,3小时后相遇.已知甲、乙两车的速度比是2比3,求甲、乙的速度 2分之1千克棉花比2分之1铁轻快 35亿秒等于多少小时 要说清楚 我除了也是97。但是这么多个小时 郁闷 要玩到什么时候 郁闷 那又是多少天呀 在比例尺是1比3000000的地图上,量得两地相距10厘米,甲,乙两车同时从两地相向而行在比例尺是1比3000000的地图上,量得两地相距10厘米,甲、乙两车同时从两地相向而行,3小时候两车相遇,已知甲乙 公式法的公式是啥我忘了 一根绳子的长度等于它本身长度的四分之三加上四分之一.这根绳子长多少? 什么时候一吨棉花比一吨铁重一些? 什么是公式法 一根绳子的长度等于它的本身的四分之三加上四分之三米.这根绳子长多少米? 关于一道数学虚数方程题RT,因为因式分解什么的都没弄出来=-=忘记打题目了=-=x^3-6x^2+10x-8=0 数学公式法公式是什么?一定要是公式……………… 有一堆沙子,第一次运走五分之一,第二次运走剩下的五分之二,问那一次运走的多,为什么?(列算式) 什么是纯虚数 ?谢谢了,大神帮忙啊 在一幅比例尺是1:3000000的地图上量得甲乙两城的距离为8厘米在比例尺是1:4000000的地图上甲乙两城的距离是多少厘米 一堆沙第一次运走了四分之一,第二次运走了五分之二,还剩下14吨,这顿沙原来有多 在比例尺为6000000分之1的地图是量得甲、乙两地间的铁路线、长约5厘米.有快、慢两车同时从甲、乙两地相对同时从甲、乙两地相对开出,3小时后相遇.已知快车每小时行65千米,慢车每小时行多 亿和万元之间怎么换算 如题779134195等于多少万元1570578096等于多少万元1653049244等于多少万元2638322593等于多少万元1591870916等于多少万元 数学换成乘积的形式谢谢(4) 有没有数学过关的教教转换公式.46.94%含固量的液体是43.87吨,换算成36%含固量的液体是57.20吨.其中46.94%含量的液体价格是每吨2440元一吨.那么.转换成36%含量的液体是多少钱. 14亿美元换算成人民币是多少?搞不懂如何换算? 数学换成乘积的形式谢谢(2) 在产品销售成本计算表中单位成本是如何算出来的,有计算公式吗在产品销售成本计算表中单位成本是如何算出来的,产品入库单是怎么得来的,没有产品购买来呀,只有购材料 用数学归纳法证明1+4+9+...+n^2=1/6*n*(n+1)*(2n+1)ji, 求超大数字乘积 表达式意义2017612633061982200*18446744073709552000=?上面数字乘积等于多少,3.7218383881977644e+37;这个数字表示什么意思 我要求的数字是10的2017612633061982200*18446744073709552000 次方也就是1 货物加运费以后如何计算成本?有没有计算公式,谢谢单一一种东西我会算,例如:10件物品350元,加运费20元,一共370元,那么1件物品成本为37元,我实在你不明白多种不同价格东西如何摊运费呢?例 1=1^2 2+3+4=3^2 3+4+5+6+7=5^2 4+5+6+7+8+9=7^2 …… 试猜测一般结论,并用数学归纳法证明 1亿除以60等于多少?拜托 1.在比例尺是1:3000000的地图上,量得A、B两地的距离是50厘米.甲乙两辆客车同时从A、B两地相对开出,经过10小时相遇.甲客车每小时行76千米,那么乙客车每小时行多少千米? 用数学归纳法证明:3*7^(k+1)+6能被9整除 在一副比例尺为1:3000000的地图上,量得A、B两地之间的距离是4.5厘米.再另一副比例尺为1/5000000的地图上,A、B两地的图上距离是多少? 把一亿化作以万作单位是怎么换算的 1千克的铁你1千克的棉花重.对吗? 在比例尺为1:3000000的地图上,图上1厘米表示实际距离多少千米?在1:3000000这个比例尺中所表示的实际距离是图上距离的多少倍? 一道换算单位30000cm^3=( )kg? 在比例尺是1:3000000的地图上,量得A、B两城的距离是2.4厘米.在A、B两成之间有一中途停靠站C.A、B两成到C站的距离比是7:5.一辆汽车从B城到C站用了0.6小时,求着辆汽车的平均速度.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn