【分享】Delphi获取CPU序列号

阿杰

<p><strong>function GetCpuId:longint;assembler;register;<br/>var<br/>temp:longint;<br/>begin<br/>asm<br/>&nbsp;&nbsp;&nbsp; PUSH&nbsp;&nbsp;&nbsp; EBX<br/>&nbsp;&nbsp;&nbsp; PUSH&nbsp;&nbsp;&nbsp; EDI<br/>&nbsp;&nbsp;&nbsp; MOV&nbsp;&nbsp;&nbsp;&nbsp; EDI,EAX<br/>&nbsp;&nbsp;&nbsp; MOV&nbsp;&nbsp;&nbsp;&nbsp; EAX,1<br/>&nbsp;&nbsp;&nbsp; DW&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $A20F<br/>&nbsp;&nbsp;&nbsp; MOV&nbsp;&nbsp;&nbsp;&nbsp; TEMP,EDX<br/>&nbsp;&nbsp;&nbsp; POP&nbsp;&nbsp;&nbsp;&nbsp; EDI<br/>&nbsp;&nbsp;&nbsp; POP&nbsp;&nbsp;&nbsp;&nbsp; EBX<br/>end;<br/>result:=temp;<br/>end;</strong></p>
<p><br/>//调用：<br/>procedure TForm1.Button1Click(Sender: TObject);<br/>begin<br/>showmessage(inttostr(GetCpuId));<br/>end;</p>

upring

嗯嗯 复制保存成网页就能看了