GetIdeDiskSerialNumber[1]

// (c) alex konshin    mailto:alexk@mtgroup.ru      30 jul 2000

program idesn;

// purpose: simple console application that extract first ide disk serial number.

{$apptype console}

uses
  windows,
  sysutils; // only for win32platform and syserrormessage

//-------------------------------------------------------------
function getidediskserialnumber : 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; // 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