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获取本机或者网关的互联网ip地址

Delphi webbroker 上传文件

Delphi dbgrid上设置选择项

Delphi 获取当前系统版本号

Delphi jpeg压缩的两种方法

Delphi 关于access的日期类型字段比较的一点认识

Delphi 网上获取北京时间验证码识别之中值滤波

Delphi indy smtp 发送邮件

Delphi 如何将颜色值转换为html格式？

Delphi 获取android package name:

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

转载请注明出处：木庄网络博客 » Delphi 获取CPUid的函数