...
FillChar(Buffer,BufferSize,#0);
 if Win32Platform=VER_PLATFORM_WIN32_NT then
   begin // Windows NT, Windows 2000
     Str(ControllerNumber,s);
     // Get SCSI port handle
     hDevice := CreateFile(
       PChar('\\\\.\\Scsi'+s+':'),
       GENERIC_READ or GENERIC_WRITE,
       FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 );
     if hDevice=INVALID_HANDLE_VALUE then RaiseLastOSError;
     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 := DriveNumber;
         with irDriveRegs do
         begin
           bFeaturesReg     := 0;
           bSectorCountReg  := 1;
           bSectorNumberReg := 1;
           bCylLowReg       := 0;
           bCylHighReg      := 0;
           bDriveHeadReg    := $A0 or ((DriveNumber and 1) shl 4);
           bCommandReg      := IDE_ID_FUNCTION;
         end;
       end;
       if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT, @Buffer, BufferSize, @Buffer, BufferSize, cbBytesReturned, nil ) then RaiseLastOSError;
     finally
       CloseHandle(hDevice);
     end;
   end
...

function GetIdeDiskSerialNumber : String;
var
 iController, iDrive, maxController : Integer;
begin
 Result := '';
 maxController := 15;
 if Win32Platform<>VER_PLATFORM_WIN32_NT then maxController := 0;
 for iController := 0 to maxController do
 begin
   for iDrive := 0 to 4 do
   begin
     try
       Result := GetIdeDisk(iController,iDrive);
       if Result<>'' then Exit;
     except
       // ignore exceptions
     end;
   end;
 end;
end;

D:\Projects\1\IdeInfo2\BIN>D:\Projects\1\IdeInfo2\BIN\IdeInfo2.exe
SMART IDENTIFY command is completed successfully.
Model number: Samsung SSD 840 PRO Series
Firmware rev: DXM05B0Q
Serial number: S1AXNSAF101887X

SMART IDENTIFY command is completed successfully.
Model number: WDC WD4003FZEX-00Z4SA0
Firmware rev: 01.01A01
Serial number:      WD-WCC131117262

SMART IDENTIFY command is completed successfully.
Model number: ST3000DM001-1CH166
Firmware rev: CC24
Serial number:             Z1F1AZS2

SMART IDENTIFY command is completed successfully.
Model number: WDC WD6001FZWX-00A2VA0
Firmware rev: 01.01A01
Serial number:      WD-WXC1HB4HF2U0

Error on GetPhysicalDeviceHandle (errcode=2): The system cannot find the file specified
========================= SCSI/IDE Port 0 ==============================
PID TID LUN Claimed String                       Inquiry Header
--- --- --- ------- ---------------------------- -----------------------
2   0    0    Y                         Samsun  0x0000050241000002
Error on SmartIdentifyMiniport: The request could not be performed because of an I/O device error

3   0    0    Y                         WD      0x0000050241000002
Error on SmartIdentifyMiniport: The request could not be performed because of an I/O device error

4   0    0    Y              ST3000DM001-1CH166 0x0000050241000002
Error on SmartIdentifyMiniport: The request could not be performed because of an I/O device error

5   0    0    Y                         WD      0x0000050241000002
Error on SmartIdentifyMiniport: The request could not be performed because of an I/O device error