获取本地硬盘硬件序号等参数BCB6样例

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" #include <WinIOCtl.h> #include <stdio.h> #pragma inline //--------------------------------------------------------------------------- // IDE NT/2000/XP专用变量 #define GETVERSIONOUTPARAMS GETVERSIONINPARAMS #define DFP_GET_VERSION SMART_GET_VERSION #define DFP_SEND_DRIVE_COMMAND SMART_SEND_DRIVE_COMMAND #define DFP_RCV_DRIVE_DATA SMART_RCV_DRIVE_DATA const WORD IDE_ATAPI_IDENTIFY = 0xA1; // 读取ATAPI设备的命令 const WORD IDE_ATA_IDENTIFY = 0xEC; // 读取ATA设备的命令 const int MAX_IDE_DRIVES = 4; // SCSI专用变量 const DWORD FILE_DEVICE_SCSI = 0x0000001B; const DWORD IOCTL_SCSI_MINIPORT_IDENTIFY = ((FILE_DEVICE_SCSI << 16) + 0x0501); const DWORD IOCTL_SCSI_MINIPORT = 0x0004D008; // see NTDDSCSI.H for definition const DWORD SENDIDLENGTH = sizeof(SENDCMDOUTPARAMS) + IDENTIFY_BUFFER_SIZE; typedef struct _SRB_IO_CONTROL { ULONG HeaderLength; UCHAR Signature[8]; ULONG Timeout; ULONG ControlCode; ULONG ReturnCode; ULONG Length; }SRB_IO_CONTROL, *PSRB_IO_CONTROL; //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- // 读取的主函数 void __fastcall ReadPhysicalDrive(TStrings *pSerList, TStrings *pModeList); // 辅助函数 char *__fastcall ConvertToString(DWORD dwDiskData[256], int nFirstIndex, int nLastIndex); // NT/2000/XP函数 void __fastcall ReadPhysicalDriveOnNT(TStrings *pSerList, TStrings *pModeList); bool __fastcall DoIdentify(HANDLE hPhysicalDriveIOCTL, PSENDCMDINPARAMS pSCIP, PSENDCMDOUTPARAMS pSCOP, BYTE btIDCmd, BYTE btDriveNum, PDWORD lpcbBYTEsReturned); // Windows 9X函数 void __fastcall ReadPhysicalDriveOnW9X(TStrings *pSerList, TStrings *pModeList); void __fastcall ReadPhysicalDriveOnW9X_Ring0(bool IsFirst, WORD BaseAddress, BYTE MoS, bool &IsIDEExist, bool &IsDiskExist, WORD *OutData); // SCSI读取函数(for NT/2000/XP) String __fastcall ReadIDEDriveAsScsiDriveOnNT(); //--------------------------------------------------------------------------- // ReadPhysicalDrive void __fastcall ReadPhysicalDrive(TStrings *pSerList, TStrings *pModeList) { switch(Win32Platform) { case VER_PLATFORM_WIN32_WINDOWS: ReadPhysicalDriveOnW9X(pSerList, pModeList); break; case VER_PLATFORM_WIN32_NT: ReadPhysicalDriveOnNT(pSerList, pModeList); break; default: break; } } //--------------------------------------------------------------------------- // ConvertToString char *__fastcall ConvertToString(DWORD dwDiskData[256], int nFirstIndex, int nLastIndex) { static char szResBuf[1024]; int nIndex = 0; int nPosition = 0; // Each integer has two characters stored in it backwards for(nIndex = nFirstIndex; nIndex <= nLastIndex; nIndex++) { // Get high BYTE for 1st character szResBuf[nPosition] = (char)(dwDiskData[nIndex] / 256); nPosition++; // Get low BYTE for 2nd character szResBuf[nPosition] = (char)(dwDiskData[nIndex] % 256); nPosition++; } // End the string szResBuf[nPosition] = '\0'; // Cut off the trailing blanks for(nIndex = nPosition - 1; nIndex > 0 && ' ' == szResBuf[nIndex]; nIndex--) szResBuf[nIndex] = '\0'; return szResBuf; } //--------------------------------------------------------------------------- // Winndows NT4/2000/XP 代码 //--------------------------------------------------------------------------- // ReadPhysicalDriveOnNT void __fastcall ReadPhysicalDriveOnNT(TStrings *pSerList, TStrings *pModeList) { // 输出参数 BYTE btIDOutCmd[sizeof(SENDCMDOUTPARAMS) + IDENTIFY_BUFFER_SIZE - 1]; for(int nDrive=0; nDrive < MAX_IDE_DRIVES; nDrive++) { HANDLE hPhysicalDriveIOCTL; char szDriveName[32]; sprintf(szDriveName, "\\\\.\\PhysicalDrive%d", nDrive); hPhysicalDriveIOCTL = CreateFile(szDriveName, GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, OPEN_EXISTING, 0, NULL); if(hPhysicalDriveIOCTL != INVALID_HANDLE_VALUE) { DWORD dwBytesReturned = 0; GETVERSIONOUTPARAMS gvopVersionParams; // Get the version, etc of PhysicalDrive IOCTL ZeroMemory(&gvopVersionParams, sizeof(GETVERSIONOUTPARAMS)); if(!DeviceIoControl(hPhysicalDriveIOCTL, DFP_GET_VERSION, NULL, 0, &gvopVersionParams, sizeof(gvopVersionParams), &dwBytesReturned, NULL)) { continue; } if(gvopVersionParams.bIDEDeviceMap > 0) { // IDE or ATAPI IDENTIFY cmd BYTE btIDCmd = 0; SENDCMDINPARAMS InParams; // Now, get the ID sector for all IDE devices in the system. // If the device is ATAPI use the IDE_ATAPI_IDENTIFY command, // otherwise use the IDE_ATA_IDENTIFY command // 具体所得结果请参考头文件中的说明 btIDCmd = (gvopVersionParams.bIDEDeviceMap >> nDrive & 0x10) ? IDE_ATAPI_IDENTIFY : IDE_ATA_IDENTIFY; ZeroMemory(&InParams, sizeof(SENDCMDINPARAMS)); ZeroMemory(btIDOutCmd, sizeof(btIDOutCmd)); if(DoIdentify(hPhysicalDriveIOCTL, &InParams, (PSENDCMDOUTPARAMS)btIDOutCmd, (BYTE)btIDCmd, (BYTE)nDrive, &dwBytesReturned)) { DWORD dwDiskData[256]; USHORT *pIDSector; // 对应结构IDSECTOR，见头文件 char szSerialNumber[21]; char szModelNumber[41]; pIDSector = (USHORT*)((SENDCMDOUTPARAMS*)btIDOutCmd)->bBuffer; for(int i=0; i < 256; i++) dwDiskData[i] = pIDSector[i]; // 取系列号 ZeroMemory(szSerialNumber, sizeof(szSerialNumber)); strcpy(szSerialNumber, ConvertToString(dwDiskData, 10, 19)); // 取模型号 ZeroMemory(szModelNumber, sizeof(szModelNumber)); strcpy(szModelNumber, ConvertToString(dwDiskData, 27, 46)); pSerList->Add(szSerialNumber); pModeList->Add(szModelNumber); } } CloseHandle (hPhysicalDriveIOCTL); } } } //--------------------------------------------------------------------------- // DoIdentify bool __fastcall DoIdentify(HANDLE hPhysicalDriveIOCTL, PSENDCMDINPARAMS pSCIP, PSENDCMDOUTPARAMS pSCOP, BYTE btIDCmd, BYTE btDriveNum, PDWORD pdwBytesReturned) { // Set up data structures for IDENTIFY command. pSCIP->cBufferSize = IDENTIFY_BUFFER_SIZE; pSCIP->irDriveRegs.bFeaturesReg = 0; pSCIP->irDriveRegs.bSectorCountReg = 1; pSCIP->irDriveRegs.bSectorNumberReg = 1; pSCIP->irDriveRegs.bCylLowReg = 0; pSCIP->irDriveRegs.bCylHighReg = 0; // Compute the drive number.（主盘和从盘所对应的值是不一样的） pSCIP->irDriveRegs.bDriveHeadReg = (btDriveNum & 1) ? 0xB0 : 0xA0; // The command can either be IDE identify or ATAPI identify. pSCIP->irDriveRegs.bCommandReg = btIDCmd; pSCIP->bDriveNumbe