VF读取硬盘信息源码

【文件属性】：

文件名称：VF读取硬盘信息源码

文件大小：27KB

文件格式：ZIP

更新时间：2013-08-08 11:38:22

硬盘

lea #Define MAX_PATH 260 oldpath = set('DEFAULT') + sys(2003) + '\' _path=left(sys(16,1),rat("\",sys(16,1))) Set defa to (_path) Declare integer GetSerialNumber in DiskSerial.dll Integer nDrive, String @lpBuffer Declare integer GetModelNumber in DiskSerial.dll Integer nDrive, String @lpBuffer Declare integer GetRevisionNumber in DiskSerial.dll Integer nDrive, String @lpBuffer Declare integer GetBufferSize in DiskSerial.dll Integer nDrive Declare integer GetDiskCylinders in DiskSerial.dll Integer nDrive Declare integer GetDiskHeads in DiskSerial.dll Integer nDrive Declare integer GetSectorsOfTrack in DiskSerial.dll Integer nDrive Set defa to (oldpath) For i=0 to 3 ?[您的 ]+allt(str(i))+[ 盘信息--------] lnSerialNumber =space(40) 。。。。。。。。。

【文件预览】：
硬盘信息.prg
DiskSerial.dll