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制作透明窗体

Delphi setfileattributes 功能:修改文件属性

Delphi rest客户端程序

Delphi nativeexcel获取excel所有列

Delphi 实现延时自动关闭对话框

Delphi 如何把类中的方法做参数

Delphi 创建并调用 dll

Delphi 自带rest调试工具 restdebugger 用法

Delphi中三种方法获取windows任务栏的高度

Delphi 屏幕整体拉出源代码

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

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