使用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;
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: Word;
  wNumCyls: Word;
  wReserved: Word;