网上C++代码转的 能正确获取 //获取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], e