什么涵数能读取cpu的序列号
解决方案 »
- 请教高手:关于mmtools的问题
- 关于遍历指定目录下文件的函数问题
- 可能会去上海
- 热键问题,,,急急!!!!
- 最近下了一个调试工具Sleuth QA Suite 3,会用该工具的介绍一下。谢谢!
- 文件操作的问题!谢谢!急用!
- 我在toolba中用NEW Separator 加分格条,怎么在程序中看不到?
- :::::菜题::如何查询快(视图,存储过程,执行SQL语句):::::
- 打包的问题:我制作好了setup应用程序,运行setup,最后没有与我的delphi里的文件(工程文件)发生关系,安装完后,好象只有些制作时候默认
- 关于任务栏的问题??
- 请问在FastReport中写代码时,怎样引用未绑定到任何数据条上的数据集?
- OOP的菜鸟
Baidu找就出来了注意双核心的CPU即可
CUP有A,B,C,D,E 5种型号
function cpuid:longint;assembler;register;
var
temp:longint;
begin
asm
push ebx
push edi
mov edi,eax
mov eax,1
dw $a20f
mov temp,edx
pop edi
pop ebx
end;
result:=temp;
end;
begin
result:=inttohex(cpuid,8);
end;
push edi
mov edi,eax
mov eax,1
dw $a20f
mov temp,edx
pop edi
pop ebx
result := 'A Cup'
else if Cup in [10..12.5] then
result := 'B Cup'
else if Cup in [12.5..15] then
result := 'C Cup'
else if Cup in [15..17.5] then
result := 'D Cup'
else if Cup in [17.5..20] then
result := 'E Cup'
else
result := '超级大奶妈';数据参考:
http://zhidao.baidu.com/question/2279155.html