delphi 获取硬盘 序列号    function GetIdeNum: String;  type      TSrbIoControl = packed record      HeaderLength : ULONG;      Signature : Array[0..7] of Char;      Timeout : ULONG;      ControlCode : ULONG;      ReturnCode : ULONG;      Length : ULONG;  end;  SRB_IO_CONTROL = TSrbIoControl;  PSrbIoControl = ^TSrbIoControl;    TIDERegs = packed record      bFeaturesReg : Byte;      bSectorCountReg : Byte;      bSectorNumberReg : Byte;      bCylLowReg : Byte;      bCylHighReg : Byte;      bDriveHeadReg : Byte;      bCommandReg : Byte;      bReserved : Byte;  end;  IDEREGS = TIDERegs;  PIDERegs = ^TIDERegs;    TSendCmdInParams = packed record      cBufferSize : DWORD;      irDriveRegs : TIDERegs;      bDriveNumber : Byte;      bReserved : Array[0..2] of Byte;      dwReserved : Array[0..3] of DWORD;      bBuffer : Array[0..0] of Byte;  end;  SENDCMDINPARAMS = TSendCmdInParams;  PSendCmdInParams = ^TSendCmdInParams;    TIdSector = packed record      wGenConfig : Word;      wNumCyls : Word;      wReserved : Word;      wNumHeads : Word;      wBytesPerTrack : Word;      wBytesPerSector : Word;      wSectorsPerTrack : Word;      wVendorUnique : Array[0..2] of Word;      sSerialNumber : Array[0..19] of Char;       wBufferType : Word;      wBufferSize : Word;       wECCSize : Word;       sFirmwareRev : Array[0..7] of Char;       sModelNumber : Array[0..39] of Char;      wMoreVendorUnique : Word;      wDoubleWordIO : Word;      wCapabilities : Word;      wReserved1 : Word;       wPIOTiming : Word;      wDMATiming : Word;      wBS : Word;      wNumCurrentCyls : Word;      wNumCurrentHeads : Word;       wNumCurrentSectorsPerTrack : Word;      ulCurrentSectorCapacity : ULONG;       wMultSectorStuff : Word;      ulTotalAddressableSectors : ULONG;       wSingleWordDMA : Word;      wMultiWordDMA : Word;      bReserved : Array[0..127] of Byte;  end;  PIdSector = ^TIdSector;    const   IDE_ID_FUNCTION = $EC;  IDENTIFY_BUFFER_SIZE = 512;  DFP_RECEIVE_DRIVE_DATA = http://www.mamicode.com/$0007c088;  >