获得硬盘序列号 delphi源码

时间:2014-08-28 06:48:21
【文件属性】:

文件名称:获得硬盘序列号 delphi源码

文件大小:4KB

文件格式:TXT

更新时间:2014-08-28 06:48:21

获得硬盘序列号 delphi源码

获得硬盘序列号 delphi源码 //获得硬盘序列号 function GetIdeSerialNumber() : PChar; stdcall; const IDENTIFY_BUFFER_SIZE = 512; type TIDERegs = packed record bFeaturesReg: BYTE; // Used for specifying SMART "commands". bSectorCountReg: BYTE; // IDE sector count register bSectorNumberReg: BYTE; // IDE sector number register bCylLowReg: BYTE; // IDE low order cylinder value bCylHighReg: BYTE; // IDE high order cylinder value bDriveHeadReg: BYTE; // IDE drive/head register bCommandReg: BYTE; // Actual IDE command. bReserved: BYTE; // reserved for future use. Must be zero. end;


网友评论

  • 能用 就是有点地方需要修改
  • 能有用,就是好东西
  • 程序确实能够运行,使用的是通过注册表进行获得的方式。在XP下可以运行,在WIN 7下无法正常运行。个人使用D7测试。
  • 有点老了,西数的就可以,其它没试
  • 对于我的项目来说,可以的
  • 确实有点老了 还是有用的
  • 调试了一下,有点问题,出现乱码。
  • 有的电脑不能获得啊
  • 谢谢提供,但不是我想要的,
  • 这个代码比较老了
  • 这个代码比较老了,在现在的SATA硬盘上不能用。