如何取得本机的硬盘序列号？(100分)

bumpiness · 2001-10-11

如何取得本机的硬盘序列号？[?][?]

卷起千堆雪tyn · 2001-10-11

对于IDE硬盘，你可以使用S.M.A.R.T. API的函数来获取序列号。但对SCSI硬盘，它无法工作。 但可以使用DeviceIoControl来获取DeviceIoControl设备序列号.   program ScsiSN;     // 目的：简单的控制台程序来显示SCSI硬盘的序列号     {$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.

楚非帆 · 2001-10-11

Unit HardDisk; INTERFACE FUNCTION  GetHardDiskNaam  : STRING; FUNCTION  GetHardDiskSerieNummer        : STRING; FUNCTION  GetHardDiskControlleNummer    : STRING; PROCEDURE GetHardDiskGegevens; CONST   CodeerTabel : ARRAY[0..24] OF BYTE = (3,1,2,1,4,1,3,2,6,4,6,5,1,2,6,4,2,6,3,4,6,2,4,1,2); TYPE   CharArray = ARRAY[0..24] OF CHAR; VAR   HardDiskGegevens : ARRAY[1..256] OF INTEGER;   HardDiskNaam  : CharArray;   SerieNummer  : CharArray;   ControlleNummer : CharArray;   C_HardDiskNaam: STRING;   C_HardDiskSerieNummer : STRING;   C_HardDiskControlleNummer : STRING;   C_LicentieNaam: STRING; IMPLEMENTATION FUNCTION GetHardDiskNaam : STRING; VAR   Teller : INTEGER;   Lus : INTEGER; BEGIN     GetHardDiskNaam := '';     Teller := 1;     FOR Lus := 1 TO 18 DO     BEGIN       HardDiskNaam[Teller] := CHR( ( HardDiskGegevens[27+Lus] DIV 256 ));       Inc(Teller);       HardDiskNaam[Teller] := CHR( ( HardDiskGegevens[27+Lus] MOD 256 ));       Inc(Teller);     END;     GetHardDiskNaam := HardDiskNaam; END; FUNCTION GetHardDiskSerieNummer : STRING; VAR   Teller : INTEGER;   Lus : INTEGER; BEGIN     GetHardDiskSerieNummer := '';     Teller := 1;     FOR Lus := 1 TO 8 DO     BEGIN       SerieNummer[Teller] := CHR( ( HardDiskGegevens[10+Lus] DIV 256 ));       Inc(Teller);       SerieNummer[Teller] := CHR( ( HardDiskGegevens[10+Lus] MOD 256 ));       Inc(Teller);     END;     GetHardDiskSerieNummer := SerieNummer; END; FUNCTION GetHardDiskControlleNummer : STRING; VAR   Teller : INTEGER;   Lus    : INTEGER; BEGIN     GetHardDiskControlleNummer := '';     Teller := 1;     FOR Lus := 1 TO 3 DO     BEGIN       ControlleNummer[Teller] := CHR( ( HardDiskGegevens[23+Lus] DIV 256 ));       Inc(Teller);       ControlleNummer[Teller] := CHR( ( HardDiskGegevens[23+Lus] MOD 256 ));       Inc(Teller);     END;     GetHardDiskControlleNummer := ControlleNummer; END; PROCEDURE GetHardDiskGegevens; VAR   Lus    : INTEGER; BEGIN   WHILE ( Port[$1f7] <> $50) DO ;   Port[$1F6] := $A0 ;   Port[$1F7] := $EC ;   WHILE ( Port[$1f7] <> $58 ) DO ;   FOR Lus := 1 TO 256 DO   BEGIN     HardDiskGegevens[Lus] := Portw[$1F0] ;   END; END; END.

QuickSilver · 2001-10-11

var   SerialNum : pdword;   a, b : dword;   Buffer  : array [0..255] of char; begin   if GetVolumeInformation('c:/', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then     Label1.Caption := IntToStr(SerialNum^); end;

bumpiness · 2001-11-23

多人接受答案了。

如何取得本机的硬盘序列号？(100分)

bumpiness

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

楚非帆

Unregistered / Unconfirmed

QuickSilver

Unregistered / Unconfirmed

bumpiness

Unregistered / Unconfirmed

Similar threads