取硬盘系列号

Author：傻猫
发布时间：January 22, 2007
8904views
4 comments
8274 words
Categories：搞软件

取硬盘系列号: &nbsp; &nbsp; function &nbsp; GetIdeSerialNumber: &nbsp; pchar; &nbsp; &nbsp; //获取硬盘的出厂系列号； &nbsp; &nbsp; &nbsp; &nbsp; const &nbsp; IDENTIFY_BUFFER_SIZE &nbsp; = &nbsp; 512; &nbsp; &nbsp; type &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TIDERegs &nbsp; = &nbsp; packed &nbsp; record &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bFeaturesReg: &nbsp; BYTE; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bSectorCountReg: &nbsp; BYTE; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bSectorNumberReg: &nbsp; BYTE; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bCylLowReg: &nbsp; BYTE; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bCylHighReg: &nbsp; BYTE; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bDriveHeadReg: &nbsp; BYTE; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bCommandReg: &nbsp; BYTE; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bReserved: &nbsp; BYTE; &nbsp; &nbsp; &nbsp; &nbsp; end; &nbsp; &nbsp; &nbsp; &nbsp; TSendCmdInParams &nbsp; = &nbsp; packed &nbsp; record &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cBufferSize: &nbsp; DWORD; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; irDriveRegs: &nbsp; TIDERegs; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bDriveNumber: &nbsp; BYTE; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bReserved: &nbsp; array[0..2] &nbsp; of &nbsp; Byte; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dwReserved: &nbsp; array[0..3] &nbsp; of &nbsp; DWORD; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bBuffer: &nbsp; array[0..0] &nbsp; of &nbsp; Byte; &nbsp; &nbsp; &nbsp; &nbsp; end; &nbsp; &nbsp; &nbsp; &nbsp; TIdSector &nbsp; = &nbsp; packed &nbsp; record &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wGenConfig: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wNumCyls: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wReserved: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wNumHeads: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wBytesPerTrack: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wBytesPerSector: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wSectorsPerTrack: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wVendorUnique: &nbsp; array[0..2] &nbsp; of &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; sSerialNumber: &nbsp; array[0..19] &nbsp; of &nbsp; CHAR; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wBufferType: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wBufferSize: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wECCSize: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; sFirmwareRev: &nbsp; array[0..7] &nbsp; of &nbsp; Char; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; sModelNumber: &nbsp; array[0..39] &nbsp; of &nbsp; Char; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wMoreVendorUnique: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wDoubleWordIO: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wCapabilities: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wReserved1: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wPIOTiming: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wDMATiming: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wBS: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wNumCurrentCyls: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wNumCurrentHeads: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wNumCurrentSectorsPerTrack: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ulCurrentSectorCapacity: &nbsp; DWORD; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wMultSectorStuff: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ulTotalAddressableSectors: &nbsp; DWORD; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wSingleWordDMA: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wMultiWordDMA: &nbsp; Word; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bReserved: &nbsp; array[0..127] &nbsp; of &nbsp; BYTE; &nbsp; &nbsp; &nbsp; &nbsp; end; &nbsp; &nbsp; &nbsp; &nbsp; PIdSector &nbsp; = &nbsp; ^TIdSector; &nbsp; &nbsp; &nbsp; &nbsp; TDriverStatus &nbsp; = &nbsp; packed &nbsp; record &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bDriverError: &nbsp; Byte; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bIDEStatus: &nbsp; Byte; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bReserved: &nbsp; array[0..1] &nbsp; of &nbsp; Byte; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dwReserved: &nbsp; array[0..1] &nbsp; of &nbsp; DWORD; &nbsp; &nbsp; &nbsp; &nbsp; end; &nbsp; &nbsp; &nbsp; &nbsp; TSendCmdOutParams &nbsp; = &nbsp; packed &nbsp; record &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cBufferSize: &nbsp; DWORD; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DriverStatus: &nbsp; TDriverStatus; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bBuffer: &nbsp; array[0..0] &nbsp; of &nbsp; BYTE; &nbsp; &nbsp; &nbsp; &nbsp; end; &nbsp; &nbsp; var &nbsp; &nbsp; &nbsp; &nbsp; hDevice: &nbsp; Thandle; &nbsp; &nbsp; &nbsp; &nbsp; cbBytesReturned: &nbsp; DWORD; &nbsp; &nbsp; &nbsp; &nbsp; SCIP: &nbsp; TSendCmdInParams; &nbsp; &nbsp; &nbsp; &nbsp; aIdOutCmd: &nbsp; array[0..(SizeOf(TSendCmdOutParams) &nbsp; + &nbsp; IDENTIFY_BUFFER_SIZE-1)-1] &nbsp; of &nbsp; Byte; &nbsp; &nbsp; &nbsp; &nbsp; IdOutCmd: &nbsp; TSendCmdOutParams &nbsp; absolute &nbsp; aIdOutCmd; &nbsp; &nbsp; procedure &nbsp; ChangeByteOrder(var &nbsp; Data; &nbsp; Size: &nbsp; Integer); &nbsp; &nbsp; var &nbsp; &nbsp; &nbsp; &nbsp; ptr: &nbsp; Pchar; &nbsp; &nbsp; &nbsp; &nbsp; i: &nbsp; Integer; &nbsp; &nbsp; &nbsp; &nbsp; c: &nbsp; Char; &nbsp; &nbsp; begin &nbsp; &nbsp; &nbsp; &nbsp; ptr &nbsp; := &nbsp; @Data; &nbsp; &nbsp; &nbsp; &nbsp; for &nbsp; I &nbsp; := &nbsp; 0 &nbsp; to &nbsp; (Size &nbsp; shr &nbsp; 1) &nbsp; - &nbsp; 1 &nbsp; do &nbsp; begin &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; c &nbsp; := &nbsp; ptr^; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ptr^ &nbsp; := &nbsp; (ptr &nbsp; + &nbsp; 1)^; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (ptr &nbsp; + &nbsp; 1)^ &nbsp; := &nbsp; c; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Inc(ptr, &nbsp; 2); &nbsp; &nbsp; &nbsp; &nbsp; end; &nbsp; &nbsp; end; &nbsp; &nbsp; begin &nbsp; &nbsp; Result &nbsp; := &nbsp; ''; &nbsp; &nbsp; if &nbsp; SysUtils.Win32Platform &nbsp; = &nbsp; VER_PLATFORM_WIN32_NT &nbsp; then &nbsp; begin &nbsp; // &nbsp; Windows &nbsp; NT, &nbsp; Windows &nbsp; 2000 &nbsp; &nbsp; hDevice &nbsp; := &nbsp; CreateFile('\\.\PhysicalDrive0', &nbsp; GENERIC_READ &nbsp; or &nbsp; GENERIC_WRITE, &nbsp; &nbsp; FILE_SHARE_READ &nbsp; or &nbsp; FILE_SHARE_WRITE, &nbsp; nil, &nbsp; OPEN_EXISTING, &nbsp; 0, &nbsp; 0); &nbsp; &nbsp; end &nbsp; else &nbsp; // &nbsp; Version &nbsp; Windows &nbsp; 95 &nbsp; OSR2, &nbsp; Windows &nbsp; 98 &nbsp; &nbsp; hDevice &nbsp; := &nbsp; CreateFile('\\.\SMARTVSD', &nbsp; 0, &nbsp; 0, &nbsp; nil, &nbsp; CREATE_NEW, &nbsp; 0, &nbsp; 0); &nbsp; &nbsp; if &nbsp; hDevice &nbsp; = &nbsp; INVALID_HANDLE_VALUE &nbsp; then &nbsp; Exit; &nbsp; &nbsp; try &nbsp; &nbsp; FillChar(SCIP, &nbsp; SizeOf(TSendCmdInParams) &nbsp; - &nbsp; 1, &nbsp; #0); &nbsp; &nbsp; FillChar(aIdOutCmd, &nbsp; SizeOf(aIdOutCmd), &nbsp; #0); &nbsp; &nbsp; cbBytesReturned &nbsp; := &nbsp; 0; &nbsp; &nbsp; with &nbsp; SCIP &nbsp; do &nbsp; begin &nbsp; &nbsp; cBufferSize &nbsp; := &nbsp; IDENTIFY_BUFFER_SIZE; &nbsp; &nbsp; with &nbsp; irDriveRegs &nbsp; do &nbsp; begin &nbsp; &nbsp; bSectorCountReg &nbsp; := &nbsp; 1; &nbsp; &nbsp; bSectorNumberReg &nbsp; := &nbsp; 1; &nbsp; &nbsp; bDriveHeadReg &nbsp; := &nbsp; $A0; &nbsp; &nbsp; bCommandReg &nbsp; := &nbsp; $EC; &nbsp; &nbsp; end; &nbsp; &nbsp; end; &nbsp; &nbsp; if &nbsp; not &nbsp; DeviceIoControl(hDevice, &nbsp; $0007C088, &nbsp; @SCIP, &nbsp; SizeOf(TSendCmdInParams) &nbsp; - &nbsp; 1, &nbsp; &nbsp; @aIdOutCmd, &nbsp; SizeOf(aIdOutCmd), &nbsp; cbBytesReturned, &nbsp; nil) &nbsp; then &nbsp; Exit; &nbsp; &nbsp; finally &nbsp; &nbsp; CloseHandle(hDevice); &nbsp; &nbsp; end; &nbsp; &nbsp; with &nbsp; PIdSector(@IdOutCmd.bBuffer)^ &nbsp; do &nbsp; begin &nbsp; &nbsp; ChangeByteOrder(sSerialNumber, &nbsp; SizeOf(sSerialNumber)); &nbsp; &nbsp; (Pchar(@sSerialNumber) &nbsp; + &nbsp; SizeOf(sSerialNumber))^:= &nbsp; #0; &nbsp; &nbsp; Result &nbsp; := &nbsp; Pchar(@sSerialNumber); &nbsp; &nbsp; end; &nbsp; &nbsp; end; &nbsp; &nbsp; &nbsp; &nbsp; 调用: &nbsp; &nbsp; Edit1.Text:=strpas(GetIdeSerialNumber)&nbsp;&nbsp;

无相关文章

Last modification：August 16th, 2009 at 12:30 pm

4 comments

samool
2009-04-26 12:30:09

[quote=long]可以取SATA硬盘的系列号吗？[/quote]可以的，串口硬盘也可以获得。

Reply
long
2009-04-26 05:47:43

可以取SATA硬盘的系列号吗？

Reply
samool
2007-09-05 08:47:35

[quote=游客]谢谢.拿过来试试.学习下.[/quote]
合作愉快！！欢迎常来坐坐哦。

Reply
游客
2007-09-04 18:31:49

谢谢.拿过来试试.学习下.

Reply