delphi 获取硬盘序列号

 

1. // 更多关于 S.M.A.R.T. ioctl 的信息可查看:
2. // http://www.microsoft.com/hwdev/download/respec/iocltapi.rtf
3. // MSDN库中也有一些简单的例子
4. // Windows Development -> Win32 Device Driver Kit ->
5. // SAMPLE: SmartApp.exe Accesses SMART stats in IDE drives
6. // 还可以查看 http://www.mtgroup.ru/~alexk
7. // IdeInfo.zip - 一个简单的使用了S.M.A.R.T. Ioctl API的Delphi应用程序
8. // 注意:
9. // WinNT/Win2000 - 你必须拥有对硬盘的读/写访问权限
10. // Win98
11. // SMARTVSD.VXD 必须安装到 /windows/system/iosubsys
12. // (不要忘记在复制后重新启动系统)
13. function GetIdeSerialNumber : string;
14. const
15.   IDENTIFY_BUFFER_SIZE = 512;
16. type
17.   TIDERegs = packed record
18.     bFeaturesReg : BYTE; // Used for specifying SMART "commands".
19.     bSectorCountReg : BYTE; // IDE sector count register
20.     bSectorNumberReg : BYTE; // IDE sector number register
21.     bCylLowReg : BYTE; // IDE low order cylinder value
22.     bCylHighReg : BYTE; // IDE high order cylinder value
23.     bDriveHeadReg : BYTE; // IDE drive/head register
24.     bCommandReg : BYTE; // Actual IDE command.
25.     bReserved : BYTE; // reserved for future use. Must be zero.
26.   end;
28.   TSendCmdInParams = packed record
29.     // Buffer size in bytes
30.     cBufferSize : DWORD;
31.     // Structure with drive register values.
32.     irDriveRegs : TIDERegs;
33.     // Physical drive number to send command to (0,1,2,3).
34.     bDriveNumber : BYTE;
35.     bReserved : Array[0..2] of Byte;
36.     dwReserved : Array[0..3] of DWORD;
37.     bBuffer : Array[0..0] of Byte; // Input buffer.
38.   end;
40.   TIdSector = packed record
41.     wGenConfig : Word;
42.     wNumCyls : Word;
43.     wReserved : Word;
44.     wNumHeads : Word;
45.     wBytesPerTrack : Word;
46.     wBytesPerSector : Word;
47.     wSectorsPerTrack : Word;
48.     wVendorUnique : Array[0..2] of Word;
49.     sSerialNumber : Array[0..19] of CHAR;
50.     wBufferType : Word;
51.     wBufferSize : Word;
52.     wECCSize : Word;
53.     sFirmwareRev : Array[0..7] of Char;
54.     sModelNumber : Array[0..39] of Char;
55.     wMoreVendorUnique : Word;
56.     wDoubleWordIO : Word;
57.     wCapabilities : Word;
58.     wReserved1 : Word;
59.     wPIOTiming : Word;
60.     wDMATiming : Word;
61.     wBS : Word;
62.     wNumCurrentCyls : Word;
63.     wNumCurrentHeads : Word;
64.     wNumCurrentSectorsPerTrack : Word;
65.     ulCurrentSectorCapacity : DWORD;
66.     wMultSectorStuff : Word;
67.     ulTotalAddressableSectors : DWORD;
68.     wSingleWordDMA : Word;
69.     wMultiWordDMA : Word;
70.     bReserved : Array[0..127] of BYTE;
71.   end;
73.   PIdSector = ^TIdSector;
75.   TDriverStatus = packed record
76.     // 驱动器返回的错误代码，无错则返回0
77.     bDriverError : Byte;
78.     // IDE出错寄存器的内容，只有当bDriverError 为 SMART_IDE_ERROR 时有效
79.     bIDEStatus : Byte;
80.     bReserved : Array[0..1] of Byte;
81.     dwReserved : Array[0..1] of DWORD;
82.   end;
84.   TSendCmdOutParams = packed record
85.     // bBuffer的大小
86.     cBufferSize : DWORD;
87.     // 驱动器状态
88.     DriverStatus : TDriverStatus;
89.     // 用于保存从驱动器读出的数据的缓冲区，实际长度由cBufferSize决定
90.     bBuffer : Array[0..0] of BYTE;
91.   end;
93. var
94.   hDevice : THandle;
95.   cbBytesReturned : DWORD;
96.   ptr : PChar;
97.   SCIP : TSendCmdInParams;
98.   aIdOutCmd : Array [0..(SizeOf(TSendCmdOutParams)+IDENTIFY_BUFFER_SIZE-1)-1] of Byte;
99.   IdOutCmd : TSendCmdOutParams absolute aIdOutCmd;
100.   procedure ChangeByteOrder( var Data; Size : Integer );
101.   var ptr : PChar;
102.   i : Integer;
103.   c : Char;
104.   begin
105.     ptr := @Data;
106.     for i := 0 to (Size shr 1)-1 do
107.     begin
108.       c := ptr^;
109.       ptr^ := (ptr+1)^;
110.       (ptr+1)^ := c;
111.       Inc(ptr,2);
112.     end;
113.   end;
114. begin
115.   Result := ''; // 如果出错则返回空串
117.   if SysUtils.Win32Platform=VER_PLATFORM_WIN32_NT then // Windows NT, Windows 2000
118.   begin
119.   // 提示! 改变名称可适用于其它驱动器，如第二个驱动器： '//./PhysicalDrive1/'
120.     hDevice := CreateFile( '//./PhysicalDrive0', GENERIC_READ or GENERIC_WRITE,
121.     FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 );
122.   end else // Version Windows 95 OSR2, Windows 98
123.     hDevice := CreateFile( '//./SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );
125.   if hDevice=INVALID_HANDLE_VALUE then Exit;
127.   try
128.     FillChar(SCIP,SizeOf(TSendCmdInParams)-1,#0);
129.     FillChar(aIdOutCmd,SizeOf(aIdOutCmd),#0);
130.     cbBytesReturned := 0;
131.     // Set up data structures for IDENTIFY command.
132.     with SCIP do
133.     begin
134.       cBufferSize := IDENTIFY_BUFFER_SIZE;
135.       // bDriveNumber := 0;
136.       with irDriveRegs do
137.       begin
138.         bSectorCountReg := 1;
139.         bSectorNumberReg := 1;
140.         // if Win32Platform=VER_PLATFORM_WIN32_NT then bDriveHeadReg := $A0
141.         // else bDriveHeadReg := $A0 or ((bDriveNum and 1) shl 4);
142.         bDriveHeadReg := $A0;
143.         bCommandReg := $EC;
144.       end;
145.     end;
146.     if not DeviceIoControl( hDevice, $0007c088, @SCIP, SizeOf(TSendCmdInParams)-1,
147.       @aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil ) then Exit;
148.   finally
149.     CloseHandle(hDevice);
150.   end;
152.   with PIdSector(@IdOutCmd.bBuffer)^ do
153.   begin
154.     ChangeByteOrder( sSerialNumber, SizeOf(sSerialNumber) );
155.     (PChar(@sSerialNumber)+SizeOf(sSerialNumber))^ := #0;
156.     Result := PChar(@sSerialNumber);
157.   end;
158. end;