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 Dis

该软件主要为一动态链结库文件: DiskSerial.DLL，它能获取物理硬盘的型号(Model Number)、物理序列号(Serial Number)、修订号(Revision Number)、缓存容量(Buffer Size)、柱面数(Cylinders)、磁头数(Heads)、每磁道的扇区数(Sectors per track)。; 在WINDOWS NT 4.0和WINDOWS 2000操作环境下能获取IDE硬盘和SCSI硬盘的以上参数；在WINDOWS 9X和WINDOWS ME操

网上找的，经过我测试可以使用，适合各种类型的硬盘，适合各种语言VB、Delphi、C++、CBuilder，里面有例子。

DiskSN 读硬盘出厂序列号控件 .