转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> VB.NET程序 >> 正文
用VB获得大容量硬盘信息         ★★★★

用VB获得大容量硬盘信息

作者:闵涛 文章来源:闵涛的学习笔记 点击数:936 更新时间:2009/4/23 14:59:10
  我的爱机用的是MSI(微星)经典的6309的板子(694X芯片),在主板的随机光盘上,有一个非常不错的PC Alert System Monitor系统工具,它不仅可以用来测CPU的温度、电压、显卡的温度等,还可以显示当前系统的一些信息(安装后该程序可以自动执行,对机器进行实时的监控)。一天刚刚下网,无聊之际打开了该工具查看自己的硬盘信息(在Win98下),我的硬盘是西部数据(Western Digital)20.5G的,其分区情况如下:C:4.0G(用来装Win98)、D:4.0G(用于Win2000)、E:5.0G(数据)、F:5.0G(数据)、G:剩余的容量(用于备份)。可是在显示时却出现这样的信息:C:D:E:F:盘的大小变成了2.05G(到后面可以知道只要分区大于2G的都不会显示正常的大小)。

  这是为什么呢?熟悉Win32 API编程的人都知道,在用VB编程时,我们可以用相应的API函数来获得有关系统的硬盘的信息,会不会是错在API的调用函数呢?想到这里我用自编的程序来查看PC Alert的有关文件,发现其调用了GetDiskFreeSpace函数,问题就出在这个函数上。下面是该函数的参数说明:Byval lpRootPathName As String(为欲查看的分区的根路径如C:\) ,lpSectorsPerCluster As Long(为一簇的扇区数), lpBytesPerSector As Long(为每一扇区的字节数), lpNumberOfFreeClusters As Long(当前分区中未使用的簇数), lpTotalNumberOfClusters As Long(总的簇数) As Long。当我们调用此函数时,是以lpBytesPerSector×lpSectorsPerCluster×TotalNumberOfClusters来计算分区总的大小的,在VB中我用来查看自己的C盘时返回值分别为512 、64、 65526,因而计算出的C盘的大小只有2.05G。

  以下是关于MSDN中的有关详细说明:对于大于的2G分区,GetDiskFreeSpace函数可能(什么可能,是一定!)返回错误的值,此时函数会屏蔽存在lpNumberOfFreeClusters及lpTotalNumberOfClusters中的值,因此建议不要用该函数来获得大于2G分区的信息。对于大于2G的分区应当使用GetDiskFreeSpaceEx函数(从Win95 OEM OSR2开始),此函数可以返回分区的有关正确信息。

  找到了问题所在便可以对症下药了,即用GetDiskFreeSpaceEx函数代替GetDiskFreeSpace函数即可。以下是GetDiskFreeSpaceEx函数中所要传递增的参数

  lpRootPathName String ,不包括卷名的磁盘根路径名 lpFreeBytesAvailableToCaller LARGE_INTEGER,指定一个变量,用于容纳调用者可用的字节数量 lpTotalNumberOfBytes LARGE_INTEGER ,指定一个变量,用于容纳磁盘上的总字节数 lpTotalNumberOfFreeBytes LARGE_INTEGER,指定一个变量,用于容纳磁盘上可用的字节数
Private Type LARGE_INTEGER
 lowpart As Long
 highpart As Long
End Type
  我们可以看到LARGE_INTEGER是一个由两个long型组成的一个类型,两个long组成表示的都是无符号的数,在转换时应当定义一个single型的变量,使其等于highpart*(2^32-1) + lowpart,注意此处的两个long型相当于C/C++中的无符号型整数类型,因为在VB中不存在此种类型,故而在换算时要处理好转换关系。我本人的做法是首先判断long型变量的正负,如是正直接相乘,如是负则用2^32-1减去该值再相乘(具体算法详见下面的代码)。


没有相关教程
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台