ray[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    : DWORD;
  wMultSectorStuff           : Word;
  ulTotalAddressableSectors  : DWORD;
  wSingleWordDMA             : Word;
  wMultiWordDMA              : Word;
  bReserved                  : Array[0..127] of BYTE;
end;
PIdSector = ^TIdSector;
TDriverStatus = packed record
  // 驱动器返回的错误代码，无错则返回0
  bDriverError : Byte;
  // IDE出错寄存器的内容，只有当bDriverError 为 SMART_IDE_ERROR 时有效
  bIDEStatus   : Byte;
  bReserved    : Array[0..1] of Byte;
  dwReserved   : Array[0..1] of DWORD;
end;
TSendCmdOutParams = packed record
  // bBuffer的大小
  cBufferSize  : DWORD;
  // 驱动器状态
  DriverStatus : TDriverStatus;
  // 用于保存从驱动器读出的数据的缓冲区，实际长度由cBufferSize决定
  bBuffer      : Array[0..0] of BYTE;
end;
var hDevice : THandle;
    cbBytesReturned : DWORD;
    ptr : PChar;
    SCIP : TSendCmdInParams;
    aIdOutCmd : Array [0..(SizeOf(TSendCmdOutParams)+IDENTIFY_BUFFER_SIZE-1)-1] of Byte;
    IdOutCmd  : TSendCmdOutParams absolute aIdOutCmd;
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 := ''''; // 如果出错则返回空串
  if SysUtils.Win32Platform=VER_PLATFORM_WIN32_NT then begin// Wi