这个取cpu号的函数会不会在不同的计算机上到同样的号,概率有多大function GetCpuId:longint;assembler;register;
var
temp:longint;
begin
asm
PUSH EBX
PUSH EDI
MOV EDI,EAX
MOV EAX,1
DW $A20F//CPUID
MOV TEMP,EDX
POP EDI
POP EBX
end;
Result := temp;
end;
var
temp:longint;
begin
asm
PUSH EBX
PUSH EDI
MOV EDI,EAX
MOV EAX,1
DW $A20F//CPUID
MOV TEMP,EDX
POP EDI
POP EBX
end;
Result := temp;
end;
只是相同型号与频率的CPUID一样.
你在取的时候可以取其它硬件信息一起使用的。比如硬盘ID.
我的号:58980863
帮忙,谢谢各位
function GetCpuId:longint;assembler;register;
var
temp:longint;
begin
asm
PUSH EBX
PUSH EDI
MOV EDI,EAX
MOV EAX,1
DW $A20F//CPUID
MOV TEMP,EDX
POP EDI
POP EBX
end;
Result := temp;
end;
取号:
edit2.Text:=inttostr(GetCpuId);
你可以选择和其它硬件一起来用.
你号真是:58980863
不会吧,怎么会一样的?倒,不是骗你们的,帮我试试
1 VME(有效模式扩展):Virtual Mode Extension
2 DE(调试扩展):Debugging Extension
3 PSE(页大小扩展):Page Size Extension
4 TSC(时间停顿计数):Time Stamp Counter
5 MSR(模式特别注册):Model Specific Registers
6 PAE(物理地址扩展):Physical Address Extension
7 MCE(额外机械检查):Machine Check Exception
8 CX8(CMPXCHG8指令支持):CMPXCHG8 Instruction Supported
9 APIC(板载硬件支持):On-Chip Hardware Supported
10 Undefined
11 SEP(快速系统呼叫):Fast System Call
12 MTRR(存储类型排列注册):Memory Type Range Registers
13 PGE(可激活球形页面):Page Global Enable
14 MCA(机械检测体系):Machine Check Architecture
15 CMOV(条件跳转指令支持):Conditional Move Instruction Supported
16 PAT(页面归属表):Page Attribute Table
17 PSE-36(36bit 页面大小扩展):36bit Page Size Extension
18 PSN(处理器序列号):Processor Serial Number
19 CLFL(CLFLUSH指令支持):CLFLUSH
20 Undefined
21 DTES:Debug Trace and EMON Store MSRs
22 ACPI(高级配置和电源管理界面):Advanced Configuration and Power Interface
23 MMX(多媒体扩展指令集):Multimedia Extensions Supported
24 FXSR(快速浮点保存和恢复):Fast Floating Point Save And Restore
25 SSE(SSE指令支持):Streaming SIMD Extension Supported
26 SSE-2(SSE-2指令支持):SSE-2 Instructions
27 SS(自我探测 ):Self-Snoop
28 HTT(超线程):Hyper-Threading Technology
29 TM(温度监控):Thermal Monitor
30 IA-64(IA-64指令支持):IA64 Instructions
31 PBE(等待中断):Pending Break Event另外现在的Delphi编译器肯定支持CPUID指令了,没必要用DW做指令字插入