获取CPUID
来源:互联网 发布:淘宝漏洞刷q币 编辑:程序博客网 时间:2024/05/16 11:39
type
TCPUID = array[1..4] of Longint;
function GetCPUID: TCPUID; assembler; register;
asm
PUSH EBX {Save affected register}
PUSH EDI
MOV EDI,EAX {@Resukt}
MOV EAX,1
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 GetComputerSeries: string;
var
//I: Integer;
//nNum: Longint;
CPUID: TCPUID;
begin
Result := '';
CPUID := GetCPUID;
Result := IntToHex(CPUID[1] , 8) + IntToHex(CPUID[2] , 8) + IntToHex(CPUID[3]
, 8) + IntToHex(CPUID[4] , 8);
end;
procedure SetCPU(h: THandle;CpuNo: Integer);
//CpuNo:决定了获得第几个cpu内核的第几个序列号。
var
ProcessAffinity: Cardinal;
_SystemAffinity: Cardinal;
begin
GetProcessAffinityMask(h, ProcessAffinity, _SystemAffinity) ;
ProcessAffinity := CpuNo; //this sets the process to only run on CPU 0
//for CPU 1 only use 2 and for CPUs 1 & 2 use 3
SetProcessAffinityMask(h, ProcessAffinity)
end;
//调用
var s:string;
begin
SetCPU(GetCurrentProcess,1);//取第一个核的cpuID,没这句会随机取得到的结果有误差
s:=GetComputerSeries;
end;
- 获取cpuid
- 获取CPUID
- 获取CPUID
- 获取CPUID
- 获取CPUID信息
- 获取CPUID信息
- C#-获取CPUID
- Delphi 获取CPUID和制造商
- Delphi通过汇编获取CPUID
- 通过CPUid获取CPU信息
- 汇编语言程序设计-01:获取cpuid
- lua 获取CPU序列号/cpuid
- CPUID
- CPUID
- 用cpuid指令获取cpu信息
- 用cpuid指令获取cpu信息
- VC获取硬盘序列号 网卡 cpuid bios
- 一个全面获取Intel CPUID的代码
- 设计模式之工厂方法
- POJ --2528--Mayor's posters--离散线段树
- 百钱百鸡:公鸡5元一只,母鸡3元一只,小鸡1元3只,100元要买100只鸡,共有几种情况
- C++中的局部变量和全局变量的区分
- Ajax复习
- 获取CPUID
- 外贸企业海外推广搜索引擎营销方法
- ThinkPHP学习笔记(二)——(读取数据)
- 如何为您的物品增加卖点
- MySQL常用语句笔记
- 完成端口(CompletionPort)详解 - 手把手教你玩转网络编程系列之三
- IOS iOS5和iOS6横竖屏同时支持
- 实现Ajax翻页效果
- 关于python