Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2342210
  • 博文数量: 321
  • 博客积分: 3440
  • 博客等级: 中校
  • 技术积分: 2992
  • 用 户 组: 普通用户
  • 注册时间: 2007-05-24 09:08
个人简介

我就在这里

文章分类

全部博文(321)

文章存档

2015年(9)

2014年(84)

2013年(101)

2012年(25)

2011年(29)

2010年(21)

2009年(6)

2008年(23)

2007年(23)

分类: Python/Ruby

2012-12-28 08:52:40

在网上找了很久,终于找了一段能读出正确CPU ID 的代码,以下代码经过Delphi7测试

procedure TForm1.Button1Click(Sender: TObject);

var
   _eax, _ebx, _ecx, _edx: Longword;
   s, s1, s2,result: string;
begin
  asm
     push eax
     push ebx
     push ecx
     push edx
     mov eax,1
     db $0F,$A2
     mov _eax,eax
     mov _ebx,ebx
     mov _ecx,ecx
     mov _edx,edx
     pop edx
     pop ecx
     pop ebx
     pop eax
    end;
   s := IntToHex(_eax, 8);
   s1 := IntToHex(_edx, 8);
   s2 := IntToHex(_ecx, 8);
   result:=s+s1+s2;
   edit1.Text:=result;
end;
阅读(3471) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~