procedure TForm1‧Button1Click（Sender： TObject）； begin label1‧Caption：='HardDriver SerialNumber：' strpas（GetIdeSerialNumber）； end； //獲取第一個IDE硬盤的序列號 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； ptr ： PChar； 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； // 更多關於 S‧M‧A‧R‧T‧ ioctl 的信息可查看： // http：//www‧microsoft‧com/hwdev/download/respec/iocltapi‧rtf // MSDN庫中也有一些簡單的例子 // Windows Development ─> Win32 Device Driver Kit ─> // SAMPLE： SmartApp‧exe Accesses SMART stats in IDE drives // 還可以查看 http：//www‧mtgroup‧ru/~alexk // IdeInfo‧zip ─ 一個簡單的使用了S‧M‧A‧R‧T‧ Ioctl API的Delphi應用程序 // 注意： // WinNT/Win2000 ─ 你必須擁有對硬盤的讀/寫訪問權限 // Win98 // SMARTVSD‧VXD 必須安裝到 \windows\system\iosubsys // （不要忘記在複製後重新啟動系統）