Delphi XE取得硬盘序列号代码

最新推荐文章于 2014-11-07 14:17:30 发布

郁闷的坦然

最新推荐文章于 2014-11-07 14:17:30 发布

阅读量2.3k

点赞数

分类专栏： XE5

本文链接：https://blog.csdn.net/cmdasm/article/details/12026873

版权

该代码示例展示了如何在Delphi XE中通过系统调用获取硬盘序列号，使用DeviceIoControl函数发送IDENTIFY命令到硬盘，并解析返回的数据。

摘要由CSDN通过智能技术生成

function GetIdeSerialNumber: pchar;
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;
  TSendCmdInParams = packed record
  // Buffer size in bytes
  cBufferSize: DWORD;
  // Structure with drive register values.
  irDriveRegs: TIDERegs;
  // Physical drive number to send command to (0,1,2,3).
  bDriveNumber: BYTE;
  bReserved: array[0..2] of Byte;
  dwReserved: array[0..3] of DWORD;
  bBuffer: array[0..0] of Byte; // Input buffer.
  end;
  TIdSector = packed record
  wGenConfig: Wo