得到CPU 及硬盘序列号(网友给的,未证实)
// CPU系列号: FUNCTION GetCPUID: TCPUID; assembler; register; asm PUSH EBX {Save affected register} PUSH EDI MOV EDI,EAX {@Resukt} MOV EAX,1 {0 cpu 厂商 1 cpu id 2 3} DW $A20F {CPUID Command} STOSD {CPUID[1]} MOV EAX,EBX STOSD {CPUID[2]} MOV EAX,ECX STOSD {CPUID[3]} MOV EAX,EDX STOSD {CPUID[4]} POP EDI {Restore registers} POP EBX END; function GetCPUIDStr: String; var CPUID: TCPUID; begin CPUID := GetCPUID; Result := IntToHex(CPUID[1], 8) + { IntToHex(CPUID[2], 8) + IntToHex(CPUID[3], 8) + } IntToHex(CPUID[4], 8); end;
function GetIdeSerialNumber: PAnsiChar; // 获取硬盘的出厂系列号; const IDENTIFY_BUFFER_SIZE = 512; type TIDERegs = packed record bFeaturesReg: Byte; bSectorCountReg: Byte; bSectorNumberReg: Byte; bCylLowReg: Byte; bCylHighReg: Byte; bDriveHeadReg: Byte; bCommandReg: Byte; bReserved: Byte; end; TSendCmdInParams = packed record cBufferSize: dword; irDriveRegs: TIDERegs; bDriveNumber: Byte; bReserved: array [0 .. 2] of Byte; dwReserved: array [0 .. 3] of dword; bBuffer: array [0 .. 0] of Byte; 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 AnsiChar; wBufferType: Word; wBufferSize: Word; wECCSize: Word; sFirmwareRev: array [0 .. 7] of AnsiChar; sModelNumber: array [0 .. 39] of AnsiChar; 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 bDriverError: Byte; bIDEStatus: Byte; bReserved: array [0 .. 1] of Byte; dwReserved: array [0 .. 1] of dword; end; TSendCmdOutParams = packed record cBufferSize: dword; DriverStatus: TDriverStatus; 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: PAnsiChar; I: Integer; c: AnsiChar; 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 Win32Platform = VER_PLATFORM_WIN32_NT then begin // Windows NT, Windows 2000 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; with SCIP do begin cBufferSize := IDENTIFY_BUFFER_SIZE; with irDriveRegs do begin bSectorCountReg := 1; bSectorNumberReg := 1; 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)); (PAnsiChar(@sSerialNumber) + SizeOf(sSerialNumber))^ := #0; Result := PAnsiChar(@sSerialNumber); end; end;