源码用于读取VF硬盘信息

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) 。。。。。。。。。