如何用DELPHI读出硬盘的出厂物理序列号,和如何读出硬盘格式化的序列号(100分)

人生55555 · 2008-10-29

请教：用DELPHI编程时，用哪个函数可以直接读出如何用DELPHI读出硬盘的出厂物理序列号,和如何读出硬盘格式化的序列号？

lxw5214 · 2008-10-29

//读硬盘序列号 function GetIdeSerialNumber: pchar;   const IDENTIFY_BUFFER_SIZE = 512; type    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;   TSendCmdInParams = packed record     // Buffer size in bytes     cBufferSize: DWORD;     // Structure with drive register values.     irDriveRegs: TIDERegs;     // Physical drive number to send command to (0,1,2,3).     bDriveNumber: BYTE;     bReserved: array[0..2] of Byte;     dwReserved: array[0..3] of DWORD;     bBuffer: array[0..0] of Byte; // Input buffer.   end;   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: 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;   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 // Windows NT, Windows 2000 // 提示! 改变名称可适用于其它驱动器，如第二个驱动器： '//./PhysicalDrive1/' hDevice := CreateFile('//./PhysicalDrive0', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); end else // Version Windows 95 OSR2, Windows 98 hDevice := CreateFile('//./SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0); if hDevice = INVALID_HANDLE_VALUE then Exit; try FillChar(SCIP, SizeOf(TSendCmdInParams) - 1, #0); FillChar(aIdOutCmd, SizeOf(aIdOutCmd), #0); cbBytesReturned := 0; // Set up data structures for IDENTIFY command. with SCIP do begin cBufferSize := IDENTIFY_BUFFER_SIZE; // bDriveNumber := 0; with irDriveRegs do begin bSectorCountReg := 1; bSectorNumberReg := 1; // if Win32Platform=VER_PLATFORM_WIN32_NT then bDriveHeadReg := $A0 // else bDriveHeadReg := $A0 or ((bDriveNum and 1) shl 4); bDriveHeadReg := $A0; bCommandReg := $EC; end; end; if not DeviceIoControl(hDevice, $0007C088, @SCIP, SizeOf(TSendCmdInParams) - 1, @aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil) then Exit; finally CloseHandle(hDevice); end; with PIdSector(@IdOutCmd.bBuffer)^ do begin ChangeByteOrder(sSerialNumber, SizeOf(sSerialNumber)); (Pchar(@sSerialNumber) + SizeOf(sSerialNumber))^:= #0; Result := Pchar(@sSerialNumber); end; end; //网上找的，测试过可以用

草原骏马 · 2008-10-30

楼上的答案太正确了，我试过了， 我在网上一直都没有找到Delphi的代码， 只找到了C++的代码。 现在好了，谢谢。

々飞翔鸟々 · 2008-11-01

读出硬盘格式化后的序列号 function GetDiskSerialNo(): string; var   VolumeSerialNumber : DWORD;   MaximumComponentLength : DWORD;   FileSystemFlags : DWORD;   DriveID: char; begin     result := '';     DriveID := 'C';     try         GetVolumeInformation(PChar(DriveID + ':/'),         nil, 0, @VolumeSerialNumber,         MaximumComponentLength,         FileSystemFlags, nil, 0);         result := IntToStr(VolumeSerialNumber);     except     end; end;

白河愁 · 2008-11-01

读出来又有啥用

shugy67 · 2008-11-02

lxw5214的代码只能用在windows2003以下的系统中，win2003以上的系统不能用，我一直在用这段代码，不过在win2003以上的系统必须修改

如何用DELPHI读出硬盘的出厂物理序列号,和如何读出硬盘格式化的序列号(100分)

人生55555

Unregistered / Unconfirmed

lxw5214

Unregistered / Unconfirmed

草原骏马

Unregistered / Unconfirmed

々飞翔鸟々

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

shugy67

Unregistered / Unconfirmed

Similar threads