DELPHI获取CPU信息
2009-02-25 17:30
一、获取CPU厂家信息
Const
CPUVendorIDs :array[0..5] of string = ('GenuineIntel','UMC UMC UMC','AuthenticAMD','CyrixInstead','NexGenDriven','CentaurHauls');
//将CPU厂家信息转换成字串形式
CPUVendors :array[0..5] of string = ('Intel','UMC','AMD','Cyrix','NexGen','CentaurHauls');
type TVendor = array [0..11] of char;
// 获取CPU厂家信息，返回值为TVendor类型
function GetCPUVendor : TVendor; assembler; register;
asm
PUSH EBX
PUSH EDI
MOV EDI,EAX
MOV EAX,0
DW $A20F //CPUID指令
MOV EAX,EBX
XCHG EBX,ECX
MOV ECX,4
@1:
STOSB
SHR EAX,8
LOOP @1
MOV EAX,EDX
MOV ECX,4
@2:
STOSB
SHR EAX,8
LOOP @2
MOV EAX,EBX
MOV ECX,4
@3:
STOSB
SHR EAX,8
LOOP @3
POP EDI
POP EBX
end;
调用方式:
var
Vendor: string;
VendorID, I: integer;
begin
Vendor := GetCPUVendor;
for i := 0 to High(CPUVendorIDs) do
begin
If Vendor = CPUVendorIDs[I] then
begin
Vendor := CPUVendors[I]; //把厂家信息精简一下，好看多了
VendorID := i;
break;
end;
end;
end;
二、获取CPU类型信息
3星 · 超过75%的资源 需积分: 10 95 浏览量
2011-09-13
22:24:23
上传
评论 1
收藏 12KB TXT 举报 
二牛牛2013-10-18cpuid都一样，不唯一
sgcn20132013-03-25很好，起到作用了
FlashDance2014-05-27下载到的是个文本文档，而且代码在XE5上用不了
