Delphi 获取CPUID和制造商

//获取CPUID
function GetCpuId(): UINT;
var
bException: BOOL;
szCpu: array [0 .. 15] of BYTE;
uCpuID: UINT;
begin
Result := 0;
ZeroMemory(@szCpu, sizeof(szCpu));
uCpuID := 0;
bException := False;

try
asm
mov eax, 0
cpuid
mov dword ptr szCpu[0], ebx
mov dword ptr szCpu[4], edx
mov dword ptr szCpu[8], ecx
mov eax, 1
cpuid
mov uCpuID, edx
end;
except
bException := TRUE;
end;

if not bException then
Result := uCpuID;
end;

//获取CPU厂商
function GetCpuName(): string;
var
bException: BOOL;
szCpu: array [0 .. 15] of BYTE;
uCpuID: UINT;
begin
Result := '';
ZeroMemory(@szCpu, sizeof(szCpu));
uCpuID := 0;
bException := False;

try
asm
mov eax, 0
cpuid
mov dword ptr szCpu[0], ebx
mov dword ptr szCpu[4], edx
mov dword ptr szCpu[8], ecx
mov eax, 1
cpuid
mov uCpuID, edx
end;
except
bException := TRUE;
end;

if not bException then
Result := StrPas(PAnsiChar(@szCpu));
end;

//调用示例
MessageBox(0, PChar(GetCpuName()), PChar('CPU制造厂商'), MB_OK);
MessageBox(0, PChar(Inttostr(GetCpuId())), PChar('CPUID'), MB_OK);