在网上找了很久,终于找了一段能读出正确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, db $0F,$A2 mov _eax,eax mov _ebx,ebx…