求救:如何获取CPU的序列号? 请问如何获取CPU的序列号。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 type TCPUID = array[1..4] of Longint;function GetCPUID : TCPUID; assembler; register; //得到CPU序列号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 EBXend; TCPUIDARRAY=array[1..4] of Longint;function GetCPUID : TCPUIDARRAY; 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 EBXend;没有整理过的数据,自己处理吧.在Win2000下测试通过. 关于TCPCLIENT接收二进制数据 子窗体怎么调用主窗体的控件? 关于report报表打印在线等 Delphi2005 出来前先一睹为快一 面向对象式绘图(GIS相关) 请问NMHTTP,在DELPHI7是什么控件? 选取combobox下拉列表中的值后,在combobox.text里只显示其部分内容该怎么做? 关于Delphi4.0中的socket控件的问题 输个不同的类型的值,会报错, 有关data,time,datatime,StrGrid--->KeyPress事件重载的几个问题? 老高们帮帮 关于局域网移动文件的问题 诚觅delphi兼职开发高手
TCPUID = array[1..4] of Longint;function GetCPUID : TCPUID; assembler; register; //得到CPU序列号
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;
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;没有整理过的数据,自己处理吧.在Win2000下测试通过.