请问如何读取SCSI硬盘的序列号？论坛似乎没以前纯净了！

Question

http://www.programsalon.com/download.asp?type_id=42
可以去这儿看看，有代码的。

Answer 1

to sundayboys(sunboy):是哪个文件？

Answer 2

获取scsi设备信息的有两个代码，你可以仔细看看啊。

Answer 3

再缩小一小范围吧！在下面函数中，hDevice是打开哪个文件的句柄（SCSI0？ScsiSN PhysicalDrive0?),dwdwIoControlCode的值是多少？是哪个常量？）才能获得硬盘中包含序列号的信息？
DeviceIoControl(
  HANDLE hDevice,              // handle to a device, file, or directory 
  DWORD dwIoControlCode,       // control code of operation to perform
  LPVOID lpInBuffer,           // pointer to buffer to supply input data
  DWORD nInBufferSize,         // size, in bytes, of input buffer
  LPVOID lpOutBuffer,          // pointer to buffer to receive output data
  DWORD nOutBufferSize,        // size, in bytes, of output buffer
  LPDWORD lpBytesReturned,     // pointer to variable to receive byte count
  LPOVERLAPPED lpOverlapped    // pointer to structure for asynchronous operation
);

Answer 4

这个程序我看不懂，谁有时间将它变为VC的代码？
{$APPTYPE CONSOLE} 
  
  uses 
    Windows, SysUtils; 
  
  //------------------------------------------------------------- 
  function GetDeviceHandle( sDeviceName : String ) : THandle; 
  begin 
    Result := CreateFile( PChar('\\.\'+sDeviceName), 
      GENERIC_READ or GENERIC_WRITE, 
      FILE_SHARE_READ or FILE_SHARE_WRITE, 
      nil, OPEN_EXISTING, 0, 0 ) 
  end; 
  
  //------------------------------------------------------------- 
  function ScsiHddSerialNumber( DeviceHandle : THandle ) : String; 
  {$ALIGN ON} 
  type 
    TScsiPassThrough = record 
      Length             : Word; 
      ScsiStatus         : Byte; 
      PathId             : Byte; 
      TargetId           : Byte; 
      Lun                : Byte; 
      CdbLength          : Byte; 
      SenseInfoLength    : Byte; 
      DataIn             : Byte; 
      DataTransferLength : ULONG; 
      TimeOutValue       : ULONG; 
      DataBufferOffset   : DWORD; 
      SenseInfoOffset    : ULONG; 
      Cdb                : Array[0..15] of Byte; 
    end; 
    TScsiPassThroughWithBuffers = record 
      spt : TScsiPassThrough; 
      bSenseBuf : Array[0..31] of Byte; 
      bDataBuf : Array[0..191] of Byte; 
    end; 
  {ALIGN OFF} 
  var dwReturned : DWORD; 
      len : DWORD; 
      Buffer : Array[0..255] of Byte; 
      sptwb : TScsiPassThroughWithBuffers absolute Buffer; 
  begin 
    Result := ''; 
    FillChar(Buffer,SizeOf(Buffer),#0); 
    with sptwb.spt do 
    begin 
      Length   := SizeOf(TScsiPassThrough); 
      CdbLength := 6; // CDB6GENERIC_LENGTH 
      SenseInfoLength := 24; 
      DataIn := 1; // SCSI_IOCTL_DATA_IN 
      DataTransferLength := 192; 
      TimeOutValue := 2; 
      DataBufferOffset := PChar(@sptwb.bDataBuf)-PChar(@sptwb); 
      SenseInfoOffset := PChar(@sptwb.bSenseBuf)-PChar(@sptwb); 
      Cdb[0] := $12; // OperationCode := SCSIOP_INQUIRY; 
      Cdb[1] := $01; // Flags := CDB_INQUIRY_EVPD;  Vital product data 
      Cdb[2] := $80; // PageCode            Unit serial number 
      Cdb[4] := 192; // AllocationLength 
    end; 
    len := sptwb.spt.DataBufferOffset+sptwb.spt.DataTransferLength; 
    if DeviceIoControl( DeviceHandle, $0004d004, @sptwb, SizeOf(TScsiPassThrough), @sptwb, len, dwReturned, nil ) 
      and ((PChar(@sptwb.bDataBuf)+1)^=#$80) 
    then 
     SetString( Result, PChar(@sptwb.bDataBuf)+4, 
       Ord((PChar(@sptwb.bDataBuf)+3)^) ); 
  end; 
  
  
  //============================================================= 
  var 
    hDevice : THandle = 0; 
    sSerNum, sDeviceName : String; 
  
  begin 
    sDeviceName := ParamStr(1); 
    if sDeviceName='' then 
    begin 
      WriteLn; 
      WriteLn('Display SCSI-2 device serial number.'); 
      WriteLn; 
      WriteLn('Using:'); 
      WriteLn; 
      if Win32Platform=VER_PLATFORM_WIN32_NT then // Windows NT/2000 
        WriteLn('  ScsiSN PhysicalDrive0') 
      else 
        WriteLn('  ScsiSN C:'); 
      WriteLn('  ScsiSN Cdrom0'); 
      WriteLn('  ScsiSN Tape0'); 
      WriteLn; 
      Exit; 
    end; 
    hDevice := GetDeviceHandle(sDeviceName); 
    if hDevice=INVALID_HANDLE_VALUE then 
     WriteLn('Error on GetDeviceHandle: ',SysErrorMessage(GetLastError)) 
    else 
      try 
        sSerNum := ScsiHddSerialNumber(hDevice); 
        if sSerNum='' then 
          WriteLn('Error on DeviceIoControl: ', 
            SysErrorMessageGetLastError)) 
        else 
          WriteLn('Device '+sDeviceName 
            +' serial number = "',sSerNum,'"'); 
      finally 
        CloseHandle(hDevice); 
      end; 
  end.