求一段代码!取本机主板或显卡或CPU的一些信息!
解决方案 »
- delphi 2010 与 delphi 7编译的后,EDIT限制的结果不一样,因为UNICODE,编译器到底做了什么会是EDIT长度不一样
- 关于查询
- 急问, 盼高手指点
- 请专家判别这是什么控件?
- 关于数据库成批修改的问题
- 急!!!急!!!!在线等!!!!!
- 如何操控OleContainer控件里的Excel文件?(或者把用OLE变量连接的Excel 显示到自己的界面下?)
- 一个特容易得分的问题:请告诉我“~”(键盘上1左边的键,像波浪一样的符号)的常数是多少?
- 有关ShellExecute频繁调用会造成死机??
- delphi程序流程控制,新手求指教
- 求十六进制转换成为十进制的方法
- 请delphi高手解答这个问题
发信人: hephaestus() 原创作者:Hephaestus(就是我) 很久以来BBS总是求助的人多,贡献的人少,本人特献上拙作,希望对初学者有所
帮助!
转载时请注明作者. 很多软件可以判断所运行的电脑类型而自动做不同的处理。如PhotoShop 5可以探
测CPU是否有MMX支持而调用不同的处理函数,《金山词霸》发现有MMX支持会产生
半透明的翻译提示,很多软件可以区分Intel,Cyrix,AMD的CPU...
现在,且让我细细道来如何让你在自己的程序中取得CPU信息。 主要可利用利用CPUID汇编指令(机器码:0FH A2H,如果你的编译器不支持CPUID指
令,只有emit机器码了)
该指令可以被如下CPU识别
Intel 486以上的CPU,
Cyrix M1以上的CPU,
AMD Am486以上的CPU
(1)取CPU OEM字符串,判断CPU厂商
先让EAX=0,再调用CPUID
Inel的CPU将返回:
EBX:756E6547H 'Genu'
EDX:49656E69H 'ineI'
ECX:6C65746EH 'ntel'
EBX,EDX,ECX将连成“GenuineIntel”,真正的Intel。
Cyrix的CPU将返回:
EBX:43797269H
EDX:78496E73H
ECX:74656164H
“CyrixInstead”,“Cyrix来代替”。
AMD的CPU将返回:
EBX:41757468H
EDX:656E7469H
ECX:63414D44H
“AuthenticAMD",可信的AMD。
在Windows98中,用右键单击“我的电脑”,选择“属性-常规”在计算机描述处
就可看见CPU OEM字符串。 (2)CPU到底是几86,是否支持MMX
先让EAX=1,再调用CPUID
EAX的 8到11位就表明是几86
3 - 386
4 - i486
5 - Pentium
6 - Pentium Pro Pentium II
2 - Dual Processors
EDX的第0位:有无FPU
EDX的第23位:CPU 是否支持IA MMX,很重要啊!如果你想用那57条新增的指令,先
检查这一位吧,否则就等着看Windows的“该程序执行了非法指令,将被关闭”吧
。 (3)专门检测是否P6架构
先让EAX=1,再调用CPUID
如果AL=1,就是Pentium Pro或Pentium II (4)专门检测AMD的CPU信息
先让EAX=80000001H,再调用CPUID
如果EAX=51H,是AMD K5
如果EAX=66H,是K6
K7是什么标志,只有等大家拿到K7的芯再说了。
EDX第0位:是否有FPU(多余的!谁用过没FPU的K5,K6?)
EDX第23位,CPU 是否支持MMX,
程序如下:是一个控制台程序,可以给出你的“心”的信息。如果把这个技术用于
DLL中,便可以使VB程序也知道“心”的信息。
//------CPUID Instruction Demo Program------------
#include <conio.h>
#include <iostream.h>
#pragma hdrstop
//------------------------------------------------
#pragma inline
#pragma argsused
int main(int argc, char **argv)
{
char OEMString[13]; int iEAXValue,iEBXValue,iECXValue,iEDXValue;
_asm {
mov eax,0
cpuid
mov DWORD PTR OEMString,ebx
mov DWORD PTR OEMString+4,edx
mov DWORD PTR OEMString+8,ecx
mov BYTE PTR OEMString+12,0
} cout<<"This CPU 's OEM String is:"<<OEMString<<endl; _asm {
mov eax,1
cpuid
mov iEAXValue,eax
mov iEBXValue,ebx
mov iECXValue,ecx
mov iEDXValue,edx
} if(iEDXValue&0x800000)
cout <<"This is MMX CPU"<<endl;
else
cout <<"None MMX Support."<<endl; int iCPUFamily=(0xf00 & iEAXValue)>>8;
cout <<"CPU Family is:"<<iCPUFamily<<endl; _asm{
mov eax,2
CPUID
}
if(_AL==1)
cout <<"Pentium Pro or Pentium II Found"; getch();
return 0;
}
// this code will get the cpu identifier from the windows registryuses
Registry;function CPUname: string;
var
Reg: TRegistry;
begin
CPUname := '';
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then
CPUname := Reg.ReadString('Identifier');
finally
Reg.Free;
end;
end;