获取CPUID等

 unit CommonUnit;

 interface

 uses

   Windows, SysUtils, DateUtils;

 Const

   CPUVendorIDs: array [ .. ] of string = ('GenuineIntel', 'UMC UMC UMC',

     'AuthenticAMD', 'CyrixInstead', 'NexGenDriven', 'CentaurHauls');

   // 将CPU厂家信息转换成字串形式

   CPUVendors: array [ .. ] of string = ('Intel', 'UMC', 'AMD', 'Cyrix',

     'NexGen', 'CentaurHauls');

 type

   TVendor = array [ .. ] of AnsiChar;

   { 将AnsiString的乱码转换成能正常显示的Utf8编码的字符串 }

 function DecodeUtf8Str(const S: string): WideString;

 function DateToInt64(date: TDateTime): Int64;

 function Int64ToDate(num: Int64): TDateTime;

 function GetCPUID: string;

 function GetIdeSerialNumber: string;

 function GetCPUVendor: TVendor;

 function GetCPUV: string;

 implementation

 function DecodeUtf8Str(const S: string): WideString;

 var

   lenSrc, lenDst: Integer;

 begin

   lenSrc := Length(S);

   if (lenSrc = ) then

     Exit;

   lenDst := MultiByteToWideChar(CP_UTF8, , Pointer(S), lenSrc, nil, );

   SetLength(Result, lenDst);

   MultiByteToWideChar(CP_UTF8, , Pointer(S), lenSrc, Pointer(Result), lenDst);

 end;

 function DateToInt64(date: TDateTime): Int64;

 var

   Bias: Integer;

   a1, a2: Extended;

   T1, T2: TDateTime;

   TS, TS2: TTimeStamp;

   pTime: _TIME_ZONE_INFORMATION;

 begin

   GetTimeZoneInformation(pTime); // 获取时区

   Bias := pTime.Bias;

   T1 := IncMinute(date, Bias);

   T2 := EncodeDateTime(, , , , , , );

   TS := DateTimeToTimeStamp(T1);

   TS2 := DateTimeToTimeStamp(T2);

   a1 := TimeStampToMSecs(TS);

   a2 := TimeStampToMSecs(TS2);

   Result := StrToInt64Def(FloatToStr(a1 - a2), );

 end;

 function Int64ToDate(num: Int64): TDateTime;

 var

   Bias: Integer;

   a1, a2: Extended;

   T1, T2: TDateTime;

   TS, TS2: TTimeStamp;

   pTime: _TIME_ZONE_INFORMATION;

 begin

   GetTimeZoneInformation(pTime); // 获取时区

   Bias := pTime.Bias;

   // Bias := Bias + pTime.DaylightBias;

   T2 := EncodeDateTime(, , , , , , );

   TS2 := DateTimeToTimeStamp(T2);

   a2 := TimeStampToMSecs(TS2);

   a1 := StrToFloat(IntToStr(num));

   TS := MSecsToTimeStamp(a1 + a2);

   T1 := TimeStampToDateTime(TS);

   T1 := IncMinute(T1, -Bias);

   Result := T1;

 end;

 function GetCPUID: string;

   procedure SetCPU(Handle: THandle; CPUNO: Integer);

   var

     ProcessAffinity: Cardinal;

     _SystemAffinity: Cardinal;

   begin

     GetProcessAffinityMask(Handle, ProcessAffinity, _SystemAffinity);

     ProcessAffinity := CPUNO;

     SetProcessAffinityMask(Handle, ProcessAffinity);

   end;

 const

   CPUINFO = '%s-%.8x%.8x';

 var

   iEax: Integer;

   iEbx: Integer;

   iEcx: Integer;

   iEdx: Integer;

 begin

   SetCPU(GetCurrentProcess, );

   asm

     push ebx

     push ecx

     push edx

     mov   eax,

     DW $A20F// cpuid

     mov   iEax, eax

     mov   iEbx, ebx

     mov   iEcx, ecx

     mov   iEdx, edx

     pop edx

     pop ecx

     pop ebx

   end

   ;

   Result := Format(CPUINFO, [GetCPUV, iEdx,iEax]);

 end;

 function GetCPUV: string;

 var

   Vendor: string;

   VendorID, I: Integer;

 begin

   Vendor := GetCPUVendor;

   {for I := 0 to High(CPUVendorIDs) do

   begin

     If Vendor = CPUVendorIDs[I] then

     begin

       Vendor := CPUVendorIDs[I];

       VendorID := I;

       break;

     end;

   end; }

   Result := Vendor;

 end;

 // 获取CPU厂家信息，返回值为TVendor类型

 function GetCPUVendor: TVendor;assembler;register;

 asm

   PUSH    EBX

   PUSH    EDI

   MOV     EDI,EAX

   MOV     EAX,

   DW      $A20F  // CPUID指令

   MOV     EAX,EBX

   XCHG      EBX,ECX

   MOV      ECX,

 @:

   STOSB

   SHR     EAX,

   LOOP    @

   MOV     EAX,EDX

   MOV      ECX,

 @:

   STOSB

   SHR     EAX,

   LOOP    @

   MOV     EAX,EBX

   MOV      ECX,

 @:

   STOSB

   SHR     EAX,

   LOOP    @

   POP     EDI

   POP     EBX

 end;

 function GetIdeSerialNumber: string; // 获取硬盘的出厂系列号；

 var

   RootPath: array [ .. ] of char;

   VolName: array [ .. ] of char;

   SerialNumber: DWORD;

   MaxCLength: DWORD;

   FileSysFlag: DWORD;

   FileSysName: array [ .. ] of char;

 begin

   RootPath := 'C:\';

   GetVolumeInformation(RootPath, VolName, , @SerialNumber, MaxCLength,

     FileSysFlag, FileSysName, );

   Result := Format('%s', [IntToHex(SerialNumber, )]);

 end;

 end.