GetIdeDiskSerialNumber[2]

    bdriveheadreg    : byte; // ide drive/head register
    bcommandreg      : byte; // actual ide command.
    breserved        : byte; // reserved for future use.  must be zero.
  end;
  ideregs   = tideregs;
  pideregs  = ^tideregs;

  tsendcmdinparams = packed record
    cbuffersize  : dword;                // buffer size in bytes
    irdriveregs  : tideregs;             // structure with drive register values.
    bdrivenumber : byte;                 // physical drive number to send command to (0,1,2,3).
    breserved    : array[0..2] of byte;  // reserved for future expansion.
    dwreserved   : array[0..3] of dword; // for future use.
    bbuffer      : array[0..0] of byte;  // input buffer.
  end;
  sendcmdinparams   = tsendcmdinparams;
  psendcmdinparams  = ^tsendcmdinparams;

  tidsector = packed record