| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1314 人关注过本帖
标题:介绍一个获取磁盘信息的可视类库
只看楼主 加入收藏
赵东明
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2004-5-4
收藏
 问题点数:0 回复次数:0 
介绍一个获取磁盘信息的可视类库
介绍一个获取磁盘信息的可视类库 2002-1-3
DRVINFO.VCX是Vladimir Shevchenko编写的一个共享可视类库。它能够获取几乎是我们所需要的关于磁盘驱动器的所有信息,如序列号、卷标名称、剩余空间等。它只能够在VFP 5.0下使用,在声明了该可视类库以后,就可以自由地引用下面所有的属性和方法了。例如: set classlib to drvinfo additive loDrvA = createobject([driveinfo],[A]) && 将盘符作为参数传递给该类库 ?loDrvA.GetFloppyDiskType() && 返回磁盘种类 以下是DRVINFO.VCX所支持的属性和方法

1.Driveletter() 返回驱动器盘符字母 2.DriveType(tlRet) 返回驱动器类型 3. FreeSpace() 返回驱动器上的剩余空间 4. GetBytesperSect() 返回驱动器每个扇区的字节数 5. GetClusterSize() 返回驱动器每束的大小 6. GetFSFlag() 返回驱动器的文件系统代码 7. GetFSType() 返回驱动器的文件系统种类(NTFS, HPFS, 等) 8. GetNumberofCluster() 返回驱动器的总束数 9. GetNumofFreeclusters() 返回驱动器空余的总束数 10. GetRootPath() 返回驱动器的根目录(如A:\) 11. GetSectperClust() 返回驱动器每束所包含的扇区数 12. GetSerialNumber() 以十进制返回驱动器的序列号 13. GetSerialNumberHex() 以八进制返回驱动器的序列号 14. GetTotnumofCluster() 返回驱动器的总束数 15. GetVolumeName() 返回驱动器的卷标 16. IsLoaded() 返回驱动器是否已经被加载的信息 17. IsWriteprotected() 返回驱动器是否被写保护 18. SetVolumeName(tcVolName) 将驱动器的卷标改为toVolName 19. GetFloppyDiskType(tlRetVal) 在软盘没有放在软驱里的情况下返回软盘的最大容量 20. TotalSpace() 返回驱动器的总容量 21. UsedSpace() 返回驱动器以用空间数 22. Version() 返回本软件的版本号 23. GetSpecificFSFlag(tcFlagName) 返回与驱动器文件系统相关的一些信息.可以是如下几种情况: FS_CASE_SENSITIVE 文件系统支持对大小写敏感的文件名(0001h) FS_CASE_IS_PRESERVED 文件系统保持文件名在写入时的大小写状态(0002h) FS_UNICODE_ON_DISK 文件系统支持Univode作为文件名(0004h) FS_PERSISTENT_ACLS 文件系统有保留ACL关键字(0008h) FS_VOL_IS_COMPRESSED 文件系统经过压缩(8000h)

DRVINFO.VCX的最大作用在于进行带有电子注册功能的应用程序设计。比如我们可以利用程序获取C盘的序列号,由于每一块硬盘的序列号在格式化以后肯定是唯一的,因此可以利用它来作为电子注册的信息。在应用程序第一次启动的时候获取C盘的序列号,用户将该序列号通过电子邮件方式发送给程序员,程序员根据预定的算法返回给用户一个注册密码,就可以实现电子注册了。

下载相关文件

作 者:蒋清野 通讯地址:清华大学23#421 (100084) 电子邮件:qyjohn@letterbox.com

原作者: 蒋清野 来源: 清华大学23#421 共有16470位读者阅读过此文 【告诉好友

http://www.myf1.net/filemanage/list.asp?id=31

搜索更多相关主题的帖子: 可视类库 序列号 磁盘 获取 
2004-11-18 19:53
快速回复:介绍一个获取磁盘信息的可视类库
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043440 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved