Delphi 获取CPUID和制造商

最新推荐文章于 2019-07-06 21:24:19 发布

cwpoint

最新推荐文章于 2019-07-06 21:24:19 发布

阅读量3.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi 制造 byte function c

本文链接：https://blog.youkuaiyun.com/cwpoint/article/details/6314254

这篇博客介绍了如何在Delphi中通过汇编代码获取CPU的ID（CPUID）和制造商信息。提供了两个函数，GetCpuId()用于获取CPUID，GetCpuName()用于获取CPU的制造商名称，并通过示例展示了如何使用这两个函数来显示信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

网上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], ebx mov dword ptr szCpu[4], edx m