GetIdeDiskSerialNumber

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;