Информация о физических дисках

Code:

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

   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

   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 = $0007c088;

IOCTL_SCSI_MINIPORT = $0004d008;

IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501;

DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;

BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize;

W9xBufferSize = IDENTIFY_BUFFER_SIZE+16;

var

hDevice : THandle;

cbBytesReturned : DWORD;

pInData : PSendCmdInParams;

pOutData : Pointer; // PSendCmdInParams;

Buffer : Array[0..BufferSize-1] of Byte;

srbControl : TSrbIoControl absolute Buffer;

procedure ChangeByteOrder( var Data; Size : Integer );

var ptr : PChar;

     i : Integer;

     c : Char;

begin

   ptr := @Data;

   for i := 0 to (Size shr 1)-1 do

   begin

     c := ptr^;

     ptr^ := (ptr+1)^;

     (ptr+1)^ := c;

     Inc(ptr,2);

   end;

end;

begin

Result := '';

FillChar(Buffer,BufferSize,#0);

if Win32Platform=VER_PLATFORM_WIN32_NT then

   begin // Windows NT, Windows 2000

     // Get SCSI port handle

     hDevice := CreateFile( '\\.\Scsi0:', GENERIC_READ or GENERIC_WRITE,

       FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 );

     if hDevice=INVALID_HANDLE_VALUE then Exit;

     try

       srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);

       System.Move('SCSIDISK',srbControl.Signature,8);

       srbControl.Timeout := 2;

       srbControl.Length := DataSize;

       srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY;

       pInData := PSendCmdInParams(PChar(@Buffer)+SizeOf(SRB_IO_CONTROL));

       pOutData := pInData;

       with pInData^ do

       begin

         cBufferSize := IDENTIFY_BUFFER_SIZE;

         bDriveNumber := 0;

         with irDriveRegs do

         begin

           bFeaturesReg := 0;

           bSectorCountReg := 1;

           bSectorNumberReg := 1;

           bCylLowReg := 0;

           bCylHighReg := 0;

           bDriveHeadReg := $A0;

           bCommandReg := IDE_ID_FUNCTION;

         end;

       end;

       if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT, @Buffer,

         BufferSize, @Buffer, BufferSize, cbBytesReturned, nil ) then Exit;

     finally

       CloseHandle(hDevice);

     end;

   end

else

   begin // Windows 95 OSR2, Windows 98

     hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );

     if hDevice=INVALID_HANDLE_VALUE then Exit;

     try

       pInData := PSendCmdInParams(@Buffer);

       pOutData := PChar(@pInData^.bBuffer);

       with pInData^ do

       begin

         cBufferSize := IDENTIFY_BUFFER_SIZE;

         bDriveNumber := 0;

         with irDriveRegs do

         begin

           bFeaturesReg := 0;

           bSectorCountReg := 1;

           bSectorNumberReg := 1;

           bCylLowReg := 0;

           bCylHighReg := 0;

           bDriveHeadReg := $A0;

           bCommandReg := IDE_ID_FUNCTION;

         end;

       end;

       if not DeviceIoControl( hDevice, DFP_RECEIVE_DRIVE_DATA, pInData,

          SizeOf(TSendCmdInParams)-1, pOutData, W9xBufferSize,

          cbBytesReturned, nil ) then Exit;

     finally

       CloseHandle(hDevice);

     end;

   end;

   with PIdSector(PChar(pOutData)+16)^ do

   begin

     ChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber));

     SetString(Result,sSerialNumber,SizeOf(sSerialNumber));

   end;

end;

Code:

var s : String;

   rc : DWORD;

begin

s := GetIdeDiskSerialNumber;

if s='' then

   begin

     rc := GetLastError;

     if rc=0 then WriteLn('IDE drive is not support SMART feature')

     else WriteLn(SysErrorMessage(rc));

   end

else WriteLn('Disk serial number: ''', s,'''');

end.