Delphi 获取CPUid的函数


本文整理自网络,侵删。

 
type
TCPUID = array[1..4] of Longint;

function GetCPUID: TCPUID; assembler; register;
asm
        PUSH    EBX { Save affected register }
        PUSH    EDI
        MOV     EDI, EAX
        MOV     EAX, 1
        DW      $A20F { CPUID Command }
        STOSD { CPUID[1] }
        MOV     EAX, EBX
        STOSD { CPUID[2] }
        MOV     EAX, ECX
        STOSD { CPUID[3] }
        MOV     EAX, EDX
        STOSD { CPUID[4] }
        POP     EDI { Restore registers }
        POP     EBX
end;



function GetCPUCode: string;
var
  v: TCPUID;
begin
  v := GetCPUID;
  // ShowMessage(IntToStr(v[1]) +#13+ IntToStr(v[2]) +#13+ IntToStr(v[3]) +#13+ IntToStr(v[4]));
  Result := IntToStr(Abs(v[3])); // + IntToStr(v[4]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.Add(GetCPUCode);
end;

相关阅读 >>

Delphi case选择语句练习代码简化

Delphi tclientdataset的全面剖析

Delphi 关于注释

Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版

Delphi tms web core 在线pdf教程

Delphi vclzip实现分卷压缩

Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号?

Delphi comparedatetime、comparedate、comparetime、samedatetime、samedate、sametime �c 对比时间的函数

Delphi 10 firedac 连接池设置

如何在Delphi xe中通过ftp下载文件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...